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GROSSE TETE 
A VOTRE AMSTRAD 


Avec son « kit-programmation Turbo Pascal »,Fraciel vous donne la possibilité 
d'utiliser pleinement toutes les ressources de votre AMSTRAD, 
à la manière d’un véritable ordinateur professionnel. 


TURBO PASCAL TURBO TUTOR 


PLUS VITE, PLUS FACILE, Turbo Tutor c’est un ensemble formation pour 
LE LANGAGE QUI VOUS PERMET apprendre et maîtriser « sans peine » le Pascal 
D’UTILISER À FOND et toutes les ressources de Turbo Pascal. Turbo 
Tutor s'adresse aussi bien aux débutants qu'aux 

VOTRE ORDINATEUR programmeurs confirmés auxquels il explique 

: Re les notions les plus « pointues ». 
+ Vitesse de compilation Turbo Tutor ne coûte que 400 F. 
Turbo Pascal compile en mémoire et en une seule Il comprend 1 manuel en français (200 pages) et 
passe, à la vitesse d'environ 100 lignes/seconde. 1 disquette reprenant tous les exemples du livre. 
+ Editeur-compilateur intégrés FRACIEL 5 


L'ensemble éditeur-compilateur réside en 
mémoire. Lorsque votre programme est entré, 
vous le compilez en tapant simplement 

sur une touche. 8O 
Si une erreur survient à la compilation, 
l'éditeur est appelé et l'erreur retrouvée dans 
le code source. 


e Un langage toutes applications 
Toutes vos applications peuvent être écrites | 
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PAS D'ABONNEMENT RETROACTIF — DEBUT ABONNEMENT=NUMERO SUIVANT LA RECEPTION DU BULLETIN 


La Société AMSTRAD France ayant décidé une baisse sur les disquettes, nous la 
répercutons sur les prochaines livraisons. 


ous les programmes parus 

dans CPC sur une disquette 
où sur une cassette pour ne pas 
perdre de temps à les saisir. 
L'idée n'est-elle pas bonne ? Sur 
la même disquette (ou cassette) 
seront regroupés les programmes 
parus dans deux numéros suc- 
cessifs de CPC. 
Le tarif, port compris, 110 F pour 
la disquette ou 85 F pour la cas- 
sette pour les abonnées. JOIN- 
DRE IMPERATIVEMENT VOTRE 
ETIQUETTE D'ABONNE AU CHE- 
QUE DE COMMANDE. 
Pour les non-abonnés, le prix est 
de 140 F (D) ou 110 F (C), tou- 
jours port compris. 
Passez vos commandes directe- 
ment aux Editions SORACOM. 
Pas de contre-remboursement. 
Les programmes sont livrés tels 
que publiés dans la revue et n’ont 
subi aucune modification. À vous 
de les adapter à vos besoins si 
vous le désirez. 


S'ABONNER, C'EST : 


BON DE COMMANDE 
(valable jusqu'à épuisement des stocks) 


Abonné Non-abonné 


140 F 


110F 


Entourez le numéro du disque choisi ou de la revue. 


Frais de port : 6,50 F pour un ou deux numéros de CPC. 
Franco pour CPC DISC et CASSETTES. 


Ci-joint, chèque bancaire ou postal de F. 


— recevoir la revue tranquillement à domicile, 

— bénéficier de prix avantageux par souscription comme nous venons de le faire 
par mailing en octobre (gain : 45 francs !), 

— bénéficier de prix sur les disquettes et maintenant les cassettes, 


— recevoir l'auto-collant CPC, 


— bénéficier de notre aide dans de nombreux domaines. 


Alors, n'hésitez pas. Abonnez-vous. 


CPC, La Revue des Utilisateurs d'Amstrad 


ABONNEMENT POUR UN AN — 11 NUMÉROS : 175 F 
6 MOIS : 99 F — D'ESSAI 3 MOIS : 50 F 


Tarif avion : + 120 F 


Ci-joint un chèque (libellé à l'ordre des Editions SORACOM) 


d'un montant de 


Adresse 


Code Postal 


Ci-joint un chèque libellé à l'ordre de : Éditions SORACOM. 
Retournez le(s) bulletin(s) ou une photocopie à : 


Éditions SORACOM — Service Abonnements — Le Grand Logis 10, Avenue du Général de Gaulle — 35170 BRUZ. 
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DOSSIER "G.'"' - Auteur Daniel Lefebvre. 


Le sabotage de "'RAINBOW WARRIOR" par une équipe de nageurs de combat 
appartenant aux services secrets français a été au coeur de l'actualité 
de l'été 85 en raison du rôle joué par la presse dans la mise en lumière 
de cette affaire. 


D PE tn 


Chacun possède son opinion sur "L'affaire Greenpeace"... les hypothèses 
de responsabilité les plus diverses ont été émises dans la presse où à 
la télévision. La radio même s'est jointe au choeur des ‘'révélations 
fracassantes". 


Qu'en est-il aujourd'hui de l'opinion de chacun de nous ? Qu'en est-il 
de votre opinion ? Disons même, de votre solution à cette première 
énigme politico-militaro-médiatique ? 


La réalité, une fois de plus, dépasse la fiction. Mais pour la première 
fois, le jeu d'aventure se trouve DANS l'actualité. Les indices abondent, 
saurez-vous reconstituer ce puzzle historique ? 


"DOSSIER G."" est l'outil informatique de cette expérience inédite, le 
remède radical à cette passivité de consommateur de média que nous sommes 
tous. Ne subissez plus l'actualité, parcourez la comme une base de données, 
avec humour et logique. Confrontez enfin votre opinion, éclairée de ses 
contradictions, à celles de l'opinion publique. Prévoir les réponses de 
cette dernière est une possibilité supplémentaire de "DOSSIER G.'"'. Là 

n'est pas le moindre de ses charmes. 
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LETTRE A UN VOLEUR... 


Me voici dans tes mains. Je te sens me tenir avec fébri- 
lité. C'est long un mois, penses-tu. Alors, je te plais avec 
mon numéro 5 ? Tu vois, dans ce numéro, il y a de nou- 
veaux programmes. 

A propos de programmes, sais-tu que, pour ton plaisir, 
de nombreux amateurs et professionnels travaillent des 
semaines, voire des mois pour te livrer leurs travaux ? 
Sais-tu que le logiciel que tu achètes est protégé par des 
droits et des lois et que de faire une copie pour la vendre 
est un vol ? 

Un vol ? 

Non, plusieurs vols ! 

Un vol vis-à-vis du revendeur. Un vol vis-à-vis du fabri- 
cant qui investit pour te mettre ce produit dans les mains. 
Mais aussi un vol moral, tout aussi grave, vis-à-vis des 
auteurs et de leur œuvre. 

Aussi, mes parents (tu sais, le rédacteur en chef et le 
directeur) avaient un choix à faire. Soit contrôler mes peti- 
tes annonces et les censurer, soit les laisser passer afin 
de faire prendre le pirate en flagrant délit de vol. 

Pour l'instant, mes parents ne m'ont pas dit ce qu'ils pen- 
sent. En fait, le mieux, c'est de cesser le piratage. 
Lis-moi bien, et si tu as le temps, écris-mois | 


A NOS LECTEURS C 
Quelques lecteurs viennent de L y 
nous faire part de leurs problèmes 

avec certains revendeurs, parti- 


culièrement les grandes surfaces. 
Pour gagner du temps et aussi 
pour pouvoir agir avec efficacité, 
merci de joindre la photocopie de 
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est dans les salons de l’h6- 

tel Novotel de Londres, 
situé à Hammersmith, soit à une 
dizaine de kilomètres à l’ouest 
du centre-ville, que s'est tenu 
durant le week-end du 5 au 6 
octobre, le premier Amstrad 
Computer Show. Organisé par 
Database Publications, éditeur de 
notre confrère Computing with 
the AMSTRAD, ce salon regrou- 
pait toutes les compagnies britan- 
niques qui, de près ou de loin, 
commercialisent des produits 
destinés aux utilisateurs d'ordina- 
teurs AMSTRAD. La rédaction de 
CPC avait effectué le voyage 
pour vous relater l'événement, et 
c'est, guidés par l'organisateur 
M. Derek MEAKIN lui-même, que 
nous avons eu le privilège de visi- 
ter les quelque 80 stands de l’ex- 
position. 


A tout seigneur tout honneur ! 
Nous avons demandé à voir en 
tout premier lieu le stand du 
constructeur. Malheureusement, 
si ses ordinateurs étaient omni- 
présents, celui-ci brillait par son 
absence et tout au plus, un repré- 
sentant du staff d’'Alan SUGAR 
semblait s'ennuyer sur le stand 
du magazine de la marque : Ams- 
trad Computer User. Bref, l'’évé- 
nement semblait peu propice à 
l'annonce de nouveautés chez 
AMSTRAD |! Nous avons quand 
même posé la question de savoir 
si l'on pouvait espérer dans un 
proche avenir la sortie d'un nou- 
veau modèle (16 bits, portable ? 
— il est permis de rêver !). Il nous 
a été répondu par un laconique : 
‘’Pas de nouvelle machine cette 
semaine... ‘’’ Comme quoi, on 


peut avoir l'air de s’ennuyer et 


conserver un flegme et un 
humour typiquement britannique. 
La grande nouveauté, c'est chez 
NORTHERN COMPUTERS qu'il 
fallait aller la découvrir : un réseau 
local avec disque dur de 10 
méga-octets pour AMSTRAD 
que nous décrirons dans le pro- 
chain numéro. 

L'autre nouveauté dont tout le 
monde parlait, était la souris 
AMX (rien à voir avec les chars 
d'assaut) de ADVANCED 
MEMORY SYSTEMS. De nom- 
breux visiteurs profitaient du prix 
expo de 69,99 livres pour repar- 
tir avec la bête sous le bras. Il 
était d’ailleurs quasiment impos- 
sible d'approcher le stand, et 
nous avons dû attendre le diman- 
che matin, avant l'ouverture de 
l'exposition au public, pour assis- 
ter à une démonstration en toute 
tranquilité et faire quelques pho- 
tos. La souris, dotée de 3 pous- 
soirs, se connecte à la prise joys- 


Marcel LE JEUNE 


tick et est livrée avec un logiciel 
de dessin à icones et menus 
déroulants ainsi qu’un manuel 
permettant de l'utiliser dans ses 
propres programmes. 

Chez THE ELECTRIC STUDIO, la 
vedette était ESP, un light-pen 
extrèmement précis et sensible, 
vendu 19,96 livres avec un logi- 
ciel de dessin très performant. 
Tout y est : zoom, effets de 
miroirs, dessin en 3D, etc. Ega- 
lement chez le même éditeur, 
AMSPRITE qui, comme son nom 
l'indique, permet de générer et de 
gérer jusqu'à 40 lutins sur 
l'écran. 

Pour en finir avec les logiciels gra- 
phiques, il ne fallait pas manquer 
chez EG COMPUTER GRAPHICS 
le fabuleux logiciel de dessin 
industriel Draughtsman, idéal 
pour le dessin mécanique et élec- 
tronique. 


Nous aurons l'occasion de vous 
présenter tous ces produits plus 
en détail dans un prochain banc 
d'essai. 

Du côté des utilitaires, la vedette 
était PRIDE UTILITIES qui ajoute 
à sa gamme désormais célèbre 
par Syclone, Tomcat, un nou- 
veau programme sur disquette : 
ODDJOB. On y trouve pêle-mêle 
un copieur, un utilitaire permet- 
tant de cacher des noms de 
fichiers dans un catalogue, un 
autre permettant de réparer un 
secteur endommagé et bien d'’au- 
tres programmes astucieux qui 
deviendront rapidement un must 
pour tout utilisateur d'AMSTRAD 
avec lecteur de disque. 

Comme nous l'avons vu, le hard 
n'était pas délaissé, et DK'TRO- 
NICS présentait une gamme de 
modules enfichables. Un bloc de 
64 k ram, accompagné d'un 
logiciel ajoutant 12 commandes 
au Basic, est destiné aux utilisa- 
teurs de 464 et 664. Ils peuvent 
ainsi obtenir la même capacité de 
mémoire que le 6128. Le Silicon 
Disc est un disque virtuel de 
256 k qui se connecte indiffé- 
remment à n'importe quel modèle 
AMSTRAD, pourvu qu'il soit doté 
d’une unité de disques. || procure 
un gain de temps énorme en évi- 
tant les fréquents accès au dis- 
que en cours de travail et peut 
s'utiliser à partir du Basic ou sous 
CP/M. Neil RAWLINSON, direc- 
teur de DK'TRONICS, nous a 
déclaré avoir entamé des négo- 
ciations avec Denis TAIEB, ex- 
importateur de la gamme ORIC, 
pour la distribution en France de 
ces modules. 
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Les logiciels professionnels 
deviennent de plus en plus nom- 
breux sur AMSTRAD, prouvant 
l'intérêt suscité par ces machines 
auprès des petites entreprises. 

Database Software propose pour 
9,95 livres son logiciel Mini 
Office qui combine un traitement 
de texte, un gestionnaire de 
fichiers, un tableur et un utilitaire 
graphique. Evidemment, ce n'est 
pas Framework, mais cherchez 
mieux pour ce prix |! D'ailleurs, 
plus de 25 000 exemplaires du 
programme ont déjà été vendus. 


De son côté, GEMINI SERIOUS 
SOFTWARE présentait Database 
accompagné de Report Genera- 
tor qui formatte les données de 
vos fichiers à votre convenance 
sur l'imprimante. Egalement chez 
le même éditeur, Home Accounts 
qui est un programme de gestion 
de budget familial sur cassette ou 
sur disque. Tous ces programme 
doivent être prochainement tra- 
duits en français. 

Bien évidemment, tous les jeux 
d'action étaient présents et de 
nombreux stands ressemblaient 
aux salles d'arcade de Las Vegas. 
Que de monde, que de bruit, et 
pourtant rien de transcendant. 
ALLIGATA avait même encastré 
ses AMSTRAD dans des meubles 
du plus bel effet, calqués sur les 
machines à sous des cafés et, 
comme il n’y avait pas de mon- 


nayeurs, vous imaginez la bous- 
culade… 

AMSOFT présentait 3D Grand 
Prix, course de voitures en 3D, 
analogue au célèbre Pole Position 
d’Atari et chez MYRDDIN SOFT- 
WARE, on pouvait voir à côté de 
leur simulateur de vol, le pro- 
totype de Zania, jeu d'aventure 
entièrement et uniquement gra- 
phique de 250 kilo-octets ; 
superbe |! Le problème de la lan- 
gue est ainsi résolu, et Myrddin 
espère commercialiser rapide- 
ment ce programme dans toute 
l'Europe. 

Tous les éditeurs britanniques 
sont d’ailleurs conscients de l’ex- 
tension des ventes d'ordinateurs 
AMSTRAD sur le continent et se 
déclarent prêts à traduire leurs 
logiciels et notices et recherchent 
activement des distributeurs à 
l'étranger. 

Le show ouvrait ses portes au 
public à partir de 9 heures le 
dimanche matin et déjà à 8 h 30, 
les visiteurs se pressaient sur le 
parvis de l'hôtel, laissant présa- 
ger une affluence encore plus 
importante que la veille. Mais il 
nous fallait déjà rentrer en 
France. Îl nous reste à saluer 
l'heureuse initiative de l'organisa- 
teur de cette exposition et à lui 
souhaiter un aussi franc succès 
pour sa deuxième édition. 
Rendez-vous en 1986, Monsieur 
Derek MEAKIN ! 
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BANC D’ ESSAI 
DES LOGICIELS 


LE SURVIVANT"" 
PSS - ERE Informatique 
Support cassette 


Tous AMSTRAD. 


‘’Le Survivant'’ est le premier fruit de l’as- 
sociation franco-anglaise entre ERE et PSS 
qui consiste à traduire et à distribuer les meil- 
leurs softs de la marque étrangère (ERE 
commercialisera ainsi toute la gamme des 
‘’Wargames’'). 

Ce logiciel est un cocktail bien dosé entre 
stratégie et action (à peu près 60 % d'arcade 
et 40 % de réflexion), et présente un thème 
original. Vous êtes le dernier survivant d'une 
race hélas aujourd'hui éteinte, et vous devez 
absolument retrouver les 64 parties du code 
génétique qui permettra de ressusciter votre 
peuple. Vous disposez d'un petit vaisseau en 
forme de bulle, assez difficile à manier du fait 
d'une inertie importante. Vous avez aussi la 
possibilité de sortir de votre bulle pour récu- 
pérer les différents objets qui vous seront uti- 
les dans votre quête. 

Chaque zone de jeu comporte 4 pièces avec 
une méchante bestiole dans chaque. On y 
trouve aussi une clé, un coffre contenant un 
morceau du code génétique, un revitaliseur 
qui vous remettra sur pieds, et surtout une 
plante étrange, qui vous permettra de proje- 
ter (en diagonale uniquement : il faut jouer 
avec les rebonds !) des bouffées de gaz 
paralysant. Une fois les créatures immobili- 
sées, il faudra rapidement remonter dans la 
bulle et venir ‘cueillir’ le monstre. Une fois 


S'ils sont quelque part 
c'est chez 


Microfolie: 


AMSTRAD 6128 
AMSTRAD 8256 


et les derniers logiciels. 
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CPC 464/664 -SPECTRUM 


les bestioles éliminées, vous pourez alors 
ouvrir le coffre, récupérer le code et changer 
de zone (comme il y a 64 morceaux du code 
et 4.salles par zone, cela fait... eh oui, 256 
pièces à visiter !). Le fait de toucher une créa- 
ture vivante ou d’être touché(e) par vos pro- 
pres tirs, vous fait perdre de l'énergie. Vous 
pouvez à tout instant ‘’geler’’ le jeu et faire 
apparaître un tableau récapitulant votre état, 
les objets et les monstres transportés, le 
temps depuis le début du jeu et les morceaux 
du code récupérés. 

Le Survivant est un jeu difficile, dont l'inté- 
rêt et l'originalité sont encore accrus de par 
l'utilisation de deux ‘‘personnages'" diffé- 
rents : le Survivant seul et le Survivant dans 
son vaisseau-bulle, qui sont difficiles à bien 
diriger. Le graphisme général est soigné, et 
l'animation des monstres et du personnage 
est très bien faite. La sonorisation du jeu 
aurait pu, par contre, être un peu améliorée. 
Les décors sont variés (ils changent à cha- 
que zone). 

On peut jouer au ‘‘Survivant’’ avec le joystick 
ou au clavier, dont les touches sont d’ailleurs 
redéfinissables (enfin un programme qui 
prend en compte l'ergonomie !). De plus, la 
cassette comporte une version AMSTRAD et 
une version SPECTRUM. 

Une certaine habitude est nécessaire pour 
jouer au ‘‘Survivant'’ (les premières parties 
ne durent que quelques secondes l), mais ce 
jeu ne déparera pas votre ludothèque. On 
espère que les prochaines ‘‘traductions’" 
d'ERE seront aussi bonnes. 
Graphisme=4, Son=2, Animation=4, 
Intérêt = 3, Originalité= 4. 


‘LES MILLE-BORNES"" 
FREE GAME BLOT 
Jeu de table 

Support cassette 
Tous AMSTRAD 


Tout le monde a certainement en mémoire ce 
jeu célèbre, qui se vend toujours à 100 000 
exemplaires. Le but est de réaliser 5000 
points par manches successives au cours 
desquelles on doit atteindre exactement 
700 kilomètres. Jeu de cartes où se mèlent 
hasard et stratégie, le Mille-Bornes proposé 
sur AMSTRAD vous opposera à l'ordinateur. 
Expliquer la règle du jeu en quelques ligne 
n'est pas chose aisée : il existe des cartes 
‘‘étapes'’ (distance parcourue), des cartes 
‘’attaques’” (permettant de ralentir, voire blo- 
quer l'adversaire), des cartes ‘‘parades'” 
(pour parer aux attaques) et des cartes ‘’bot- 
tes’’ (pour immuniser le joueur qui les pos- 
sède pendant toute une manche). 

Le rendu des cartes à l'écran est tout à fait 
correct, et le jeu reste utilisable que le moni- 
teur soit couleur ou monochrome. 

Le joueur ne gagnera pas à tous les coups car 
l'ordinateur saura user de stratégie et porter 
‘’bottes'’’ et ‘’coups fourrés’ à bon escient. 
Pour tous ceux qui aiment les jeux ‘’de 
société”’ qui en ont assez de traquer l’enva- 
hisseur, le MILLE BORNES offrira d'agréables 
moments de détente. Par son originalité et 
sa qualité de réalisation, ce jeu se distingue 
un peu de ce qui existe sur AMSTRAD. . 


Graphisme : 3, Son : 2, Animation : 2, Inté- 
rêt : 4, Originalité : 4. 


‘PLANETE BASE” 

LORICIELS 

Educatif 

Support cassette 

Tous CPC, moniteur couleur nécessaire 


Il y a encore assez peu de logiciels destinés 
aux enfants, ayant un but éducatif, et qui ne 
soient pas rébarbatifs. Celui-ci, après quel- 
ques tests sur des élèves de CE1 à CM1;, 
nous a paru digne d'être cité. Il permet à 
l'élève de se familiariser, en s'amuasnt, avec 
la notion de bases et de numération. 

Le héros du jeu s'appelle PEPO. Il doit nour- 
rir son ami NUMERUS, sorte de Casimir (pour 
les connaisseurs), au moyen de pommes rou- 
ges. Pour obtenir ces pommes rouges, PEPO 
doit cueillir, et échanger chez le marchand, 
des pommes bleues, jaunes et blanches car 
les rouges ne poussent pas sur les arbres de 
sa planète. 

C'est au moment de la cueillette, et surtout 
de l'échange, que va intervenir la notion de 
base. 

Coloré et d’une présentation agréable (PEPO, 
le petit garçon, est animé comme un person- 
nage de dessin. animé), ce logiciel permet- 
tra aux parents d'illustrer les leçons corres- 
pondantes. A la maison ou à l’école, si celle-ci 
n'est pas envahie de TO7 ou semblables, 
PLANETE BASE trouvera une place aux côtés 
de l'ordinateur. 


Graphisme : 4, Son : 3, Animation : 3, Inté- 
rêt : 4, Originalité : 3. 
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‘’FONCTIONS"" 

MICRO-C 

Utilitaire/Didacticiel 

100 FF cassette, 130 FF disquette 
Tous CPC 


Ecrit par un professeur de mathématiques, 
FONCTIONS est un des rares logiciels sus- 
ceptibles d'être utilisés à l’école et à la mai- 
son. Il se compose de deux parties : les cour- 
bes de fonction et les intégrales. Utilisable 
de la seconde à la terminale, il permettra 
l'étude graphique des fonctions les plus 
complexes, mettant au grand jour les notions 
de continuité ou de dérivabilité. 

Pour les intégrales, la méthode retenue est 
la ‘’méthode des rectangles’’. Dans le logi- 
ciel est inclus un rappel de cette méthode. 


Le calcul de la valeur des intégrales et leur 
représentation graphique sont prévus. 

La réalisation est très correcte avec une uti- 
lisation sobre des couleurs et du son. La ligne 
contenant la fonction à étudier est éditée 
automatiquement, permettant à l'utilisateur 
sa modification aisée. 

D'un prix très raisonnable, le logiciel sera d’un 
grand secours aux étudiants désireux de 
comprendre, par l’image, la théorie apprise 
en cours. 


Graphisme : 3, Son : 2, Animation : 
rêt : 3, Originalité : 3. 
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‘’ORPHEE (VOYAGE AUX ENFERS)'' 
LORICIELS 

Aventure 

Support disquette 

Pour tous les CPC 


Vous connaissez LORICIELS, chez eux, on ne 
fait pas les choses à moitié... ORPHEE est 
une grande fresque, occupant plus d’une face 
de la disquette (l'autre partie de l’autre face 
étant réservée à une démonstration), vous 
invitant à un voyage aux enfers. Rien de bien 
engageant, penserez-vous... Le thème est 
spécial, en effet, puisque vous descendez en 
enfer, suite à un accident de voiture, pour 
décider si votre corps vivra ou non. On aime- 
rait pouvoir être réellement maître de ce genre 
de décision | 

Le texte est illustré par des images très soi- 
gnées, d'où l'humour n’est pas toujours 
absent. Les effets sonores qui viennent ponc- 
tuer le jeu sont assez réussis. Votre AMS- 
TRAD prononcera, à l’occasion, quelques 
mots que vous n'aurez aucun mal à recon- 
naître malgré le petit diamètre du haut-parleur 
interne. Ajoutez à cela des illustrations musi- 
cales et vous aurez une idée de ce tableau 
que nous avons tenté de ‘’brosser'’ en quel- 
ques lignes. Pour le reste, nous vous laissons 
découvrir : nul doute que les passionnés de 
jeu d'aventure n'y trouvent quelques heures 
de plaisir | 


Graphisme : 4, Son : 4, Animation : 2, Inté- 
rêt : 3, Originalité : 3. 


‘’SUPERSONIC'" 

LOGI'STICK 

Utilitaire 

99 FF sur cassette, 139 FF sur disquette 
Pour 464 et 664 


Avec SUPERSONIC, ça va faire du bruit... 
Des ‘‘’bangs'’, des ‘’psss'’ ou ce que vous 
voudrez. SUPERSONIC est un utilitaire de 
création sonore, véritable éditeur de sons en 
tous genres. Le logiciel est conçu pour vous 
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assister dans l'élaboration des sons les plus 
divers. || permet d'agir sur tous les paramè- 
tres de l'instruction SOUND de manière fort 
originale. Modification de la période, durée, 
choix des enveloppes volume et tonalité. 
Dans ces deux cas, on obtient la représen- 
tation graphique de l'enveloppe, ce qui per- 
met de l’affiner pour qu'elle soit aussi pré- 
cise qu'on le désire. 

Les sons et enveloppes créés peuvent être 
sauvegardés sur cassette. Le logiciel possède 
une fonction, accessible depuis le menu (très 
original, par ailleurs, car présenté comme un 
organigramme), permettant d'obtenir direc- 
tement les lignes de Basic correspondantes 
et, éventuellement, leur édition sur impri- 
mante. Les sons peuvent être testés immé- 
diatement, on peut ‘’reboucler'’ certains 
paramètres, bref, c’est un utilitaire qui fera 
l'affaire de tous les créateurs à la recherche 
d'effets sonores un peu spéciaux. À possé- 
der, ne serait-ce que pour apprendre à jouer 
avec le son | 

Graphisme : 3, Son : 3, Animation : 1, Inté- 
rêt : 4, Originalité : 4. 


PROTEC-PHONIE 
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COMMODORE 128 
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A LA VITRINE DU 


ouvrages que nous avons lus pour vous 

ce mois-ci, ont des antécédents sur 
d'autres ordinateurs familiaux. 
Si cette pratique est avantageuse pour l'édi- 
teur, elle pourrait devenir rapidement dange- 
reuse pour le lecteur car les livres risquent 
de ne plus tenir compte des spécificités d’une 
machine donnée. C’est le cas des ‘’Premiers 
Programmes’. 


! es séries font recette, car trois des 


‘AMSTRAD, PREMIER PROGRAMMES’ 
SYBEX 

Rodnay ZAKS 

98 FF 


Rodnay ZAKS est très connu dans le monde 
de la micro-informatique. Docteur en infor- 
matique, il enseigne la micro et est l’auteur 
de nombreuses conférences et livres sur le 
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sujet. C'est grâce aux qualités de pédagogue 
de l’auteur que nous pourrons dire que ce 
livre reste intéressant, bien qu'il ne considère 
pas les particularités de l' AMSTRAD. 

Très clair, abondamment et agréablement 
illustré, accessible au plus jeune des débu- 
tants, il permet de comprendre les notions de 
base qu'il est indispensable de posséder pour 
arriver à l'écriture d’un premier programme. 
Définition de l'algorithme, établissement d'un 
organigramme, tests sur le papier, sont 
autant d'étapes par lesquelles il faut passer 
avant de rédiger un programme. Si vous sui- 
vez, à la lettre, les conseils de l’auteur, vous 
serez sur le bon chemin. 

Quelques exercices élémentaires sont propo- 
sés : le débutant, auquel s'adresse ce livre, 
aura tout intérêt à ne pas les négliger. 

En dernière partie, un glossaire traduit les ter- 
mes couramment rencontrés dans le jargon 
informatique. Première étape sur la route de 
la programmation, cette lecture devra être 
suivie par celle d'ouvrages plus spécifiques 
pour qui voudra tirer un meilleur parti du Basic 
de son AMSTRAD. 


‘MUSIQUE SUR AMSTRAD" 
EDIMICRO 

lan WAUGH 

148 FF 


Traduit de l'anglais, l’auteur lan WAUGH est 
musicien professionnel et auteur du même 
titre sur d’autres ordinateurs. S'il est un livre 
que doit posséder l'utilisateur d'AMSTRAD 
désireux d'utiliser aux mieux les possibilités 
musicales de la machine, c'est bien celui-ci. 
Le manuel utilisateur des CPC est avare en 
informations concernant la génération des 
sons, et reste très théorique, voire herméti- 
que, sur ce sujet. L'ouvrage que nous avons 
lu pour vous est tout le contraire. || est bien 
entendu qu'un non-musicien ne deviendra 
pas un prodige après l'avoir lu, par contre il 
comprendra comment est produit un son, 
quelles sont ses caractéristiques ; fréquence, 
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volume, enveloppe n'auront plus de secrets 
pour le lecteur. 

De même, un chapitre consacré à la musique 
lui fera découvrir ce qu'est une gamme, une 
mesure, une harmonie ou un accord. Les 
commandes SOUND, ENT, ENV sont ensuite 
détaillées. A chaque fois, l’auteur propose à 
ses lecteurs un petit exemple en Basic per- 
mettant d'allier théorie et pratique. 

Vous apprendrez à bruiter et à composer sans 
avoir l'impression de peiner : tout est claire- 
ment expliqué. 


Si votre AMSTRAD était désespérément 
muet et ne savait que produire des sons 
galactico-débiles, les 240 pages de cet 
ouvrage vont vous le présenter sous de nou- 
veaux aspects. 
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Avec sa traditionnelle reliure spirale, cet 
ouvrage fait partie d’une série entamée avec 
d'autres ordinateurs. C’est une ‘‘compila- 
tion’’ de toutes les informations qui ont été 
publiées sur l'AMSTRAD. On n'y trouve pas 
les détails, développés dans d’autres livres, 
mais l'essentiel y est résumé. 

Les 50 premières pages reprennent la des- 
cription (résumée) du Basic de l’'AMSTRAD. 
Une section de 25 pages est consacrée au 
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langage machine avec le détail des mnémo- 
niques assembleur Z80. Le logiciel interne : 
routines utiles avec point d'entrée, conditions 
de sortie et fonctions réalisées, les vecteurs 
d'appel et d'indirection, les variables 
système, les adresses des mots-clés, sont 
quelques unes des informations données 
dans la troisième section. 

Une description des principaux circuits inté- 
grés (8912, 8255, 6845 et Gate Array), ainsi 
que le détail des connexions complètent l'ou- 
vrage. Enfin, quelques trucs et astuces (trop 
peu nombreux) concluent ce livre. 

Si la place manque sur votre bureau, à côté 
de l'AMSTRAD, ou que votre budget a été 
sérieusement entamé par l'achat de l’ordina- 
teur, vous aurez peut-être quelques difficul- 
tés à vous constituer une bibliothèque 
‘système’ intéressante. ‘’Clefs pour AMS- 
TRAD'' vous paraîtra alors indispensable, 
pour peu que vous ayez envie de mieux 
connaître le système d'exploitation de votre 
CPC. Ecrit pour le 464, il serait souhaitable 
que les prochaines éditions soient complé- 
tées avec les particularités des 664 et 6128, 
mais l'essentiel reste décrit. 
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Traduit de l’allemand, comme le reste de la 
collection, le seul reproche qu'on puisse faire 
à cet ouvrage est justement lié à des problè- 
mes de traduction. Pour le reste, on peut dire 
qu'il s’avèrera très vite indispensable aux uti- 
lisateurs d'AMSTRAD avec disquette. En 
près de 400 pages, vous obtiendrez une foule 
d'informations essentielles sur le hard et le 
système d'exploitation. 

Le contrôleur FDC 7665 est détaillé, registre 


par registre, et vous découvrirez les secrets 
du formatage et de l'écriture-lecture sur dis- 
que. Structure du catalogue, routines les plus 
utiles, listing commenté de la ROM contenant 
le DOS, ainsi que quelques routines complè- 
tent ce livre, véritable mine d'informations. 
Un schéma électronique du contrôleur est 
fourni. 

Bien structuré, ce livre est, sans nul doute, 
l'outil indispensable au programmeur dési- 
reux d'exploiter au mieux son lecteur de dis- 
quettes. À commander au plus vite si vous 
êtes de ceux-là. 
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EN VRAC... 


LE VRAI PRIX 
DES ORDINATEURS 


Notre confrère HEBDOGICIEL 
vient d'attribuer aux CPC 664 et 
CPC 6128 l'Oscar du meilleur 
rapport qualité-prix des ordina- 
teurs individuels. 
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VOUS AVEZ 
DIT COMPATIBLE ? 


ERE INFORMATIQUE vient de 
ressortir trois de ses best-sellers 
en version compatible CPC 664. 
Il s'agit de Amélie Minuit, Maca- 
dam Bumper et Mission Delta. 
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AMSTRAD ACTION 


Une nouvelle revue mensuelle 
pour les utilisateurs d' AMSTRAD 
vient de voir le jour en Angleterre. 
Il s’agit de AMSTRAD ACTION, 
consacrée presque exclusive- 
ment aux bancs d'essais de logi- 
ciels en tous genres, mais avec 
un prédilection pour les jeux. Le 
numéro 2 de Novembre est paru. 


CALAMITES 


Dans son article ‘Soirée Mon- 
daine’’ du n° 4 de CPC, Eddy 
DUTERTRE a indiqué que le 
PCW 8256 était en QWERTY. 
Or, cet appareil avait le clavier 
AZERTY. Il faut dire que les 
essais furent effectués après 
moultes passages au buffet ; 
alors, le lecteur nous excusera | 
Par ailleurs, ce n'était pas la 
DMP 2000 qui était présentée ! 
Dur, dur, la soirée ! 
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sante, prouvant votre intérêt pour ce 

genre de logiciels, nous avons décidé 
d'effectuer un test global et simultané des 
différents simulateurs de vol sur AMSTRAD. 
Disons-le tout de suite, aucun n'arrive à la 
cheville du célèbre ‘’FLIGHT SIMULATOR Il" 
de SUBLOGIC disponible sur COMMODORE, 
APPLE, IBM et ATARI. Ceci est hélas regret- 
table et nous espérons, sans trop y croire, 
que SUBLOGIC comblera cette lacune. 
Mis à part ‘MISSION DELTA" d'ERE INFOR- 
MATIQUE, seul français du lot, tous les logi- 
ciels testés viennent d'Outre-Manche et sont 
importés en France, entre autres, par GUIL- 
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LEMOT INTERNATIONAL SOFTWARE, 
annonceur de CPC. 

Chacun d'entre eux présente une particula- 
rité intéressante, et seul, peut-être, FLIGHT 
PATH 737 nous a semblé un peu limité. Atta- 
chez vos ceintures, nous décollons ! 


‘"RED ARROWS"" 
DATABASE SOFTWARE 


Connaissez-vous les Red Arrows ? C'est la 
patrouille acrobatique de la Royal Air Force, 
le pendant de notre PAF (Patrouille Acroba- 
tique de France). Les Red Arrows volent sur 
un appareil appelé HAWK MK1, et c'est sur 
ce jet que vous avez la possibilité de ‘’voler'’. 
Vous venez d'être affecté à la patrouille, ce 
qui suppose déjà que vous soyez un bon 
pilote. Il va falloir apprendre les figures une 
après l’autre pour être capable de les effec- 
tuer, par la suite, en entraînement avec le 
reste de la patrouille. Quand tout cela sera 
bien au point, vous pourrez participer à un 
meeting où aucune faute n'est permise. 
On s’entraîne ? Volets, pleins gaz, lâcher les 
freins : décollage ! Montée vers une altitude 
de travail et début d'évolution. Vous volez 
en solo et ne voyez que le ciel et la terre. Le 
tableau de bord est peu réaliste, mais si vous 
le voulez, en phase ‘’apprentissage’, l'ordi- 
nateur va vous enseigner comment faire des 
boucles et même, en vol de patrouille, à tenir 
votre place d'équipier. || vous servira ainsi de 
moniteur pour plusieurs figures. 

Les ordres du leader apparaissent au bas de 
l'écran et vous ne devez agir qu'à l'ordre 
‘GO !’’. Ça n'est pas facile du tout et même 


si le HAWK simulé par le programme réagit 
avec la lenteur d'un 747 à pleine charge 
(c'est dommage), et si sa planche de bord 
manque de réalisme, arriver à tenir sa place 
dans la patrouille n'est pas une mince affaire. 
Ce qui est remarquable, c'est que vous voyez 
vos équipiers à travers la verrière. 

On peut piloter au clavier ou au joystick. Un 
bon programme pour son originalité mais un 
simulateur de vol manquant un peu de réa- 
lisme. Pourtant, on aime... surtout quand le 
pilote descend en parachute ! 

Notice en français. Compatible 664. Version 
disque disponible. 


DATAB 


FRI £ contest! 
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\ form inside 


‘JUMP JET" 
ANIROG 


Le HARRIER, vous connaissez ? Ceux qui ne 
sont pas fanas d'aéronautique, en ont cer- 
tainement entendu parler lors de la ‘‘Guerre 
des Malouines’’ et si vraiment vous ignorez 
tout de cet avion, sachez qu'il s’agit d'un 
appareil à décollage et atterrissage vertical 
(le seul réellement opérationnel), en service 
dans la Royal Navy (Sea Harrier) et dans la 
Royal Air Force. 

Vous allez piloter le JUMP JET et, si vous 
êtes doué, gravir les échelons de la hiérarchie 
militaire en accomplissant vos missions avec 
brio. || vous faudra décoller du porte-aéronefs, 
intercepter et détruire les avions ennemis 
avant qu'ils ne vous abattent... et revenir sur 
le port. 

Un ADAV (Avion à Décollage et Atterrissage 
Vertical) ne se pilote pas aussi facilement et 
toutes vos erreurs seront sanctionnées, ce 
qui pourra écourter sérieusement la mission | 
Votre plein n'étant pas inépuisable, vous 
aurez aussi à lutter contre le temps et, au 
niveau le plus élevé, contre les éléments 
naturels. 

Le programme vous propose plusieurs vues 
de l'extérieur, avec toujours la planche de 
bord. Les indicateurs sont ‘numériques’, mis 
à part l'horizon artificiel et le radar. Les 
commandes disponibles sont les commandes 
classiques d'un avion plus celles des tuyè- 
res de propulsion. 

Une première vue situera votre appareil sur 
le pont, pendant le décollage, puis au-dessus 
de 300 ft (pieds), apparaissent le porte- 
aéronef et votre appareil (deux vues). Ceci 
est surtout utile à ‘‘l’atterrissage'’… 
Au-dessus de 200 ft, vous voyez le ciel (avec 
les nuages) et la mer (crête des vagues). Lors 
de l'attaque des appareils ennemis, ceux-ci 
apparaissent et grossissent.. À vous de les 


aligner dans votre-viseur et de déclencher, 
au bon moment, votre tir. 

Pour intercepter un ennemi, vous aurez la 
possibilité de vous aider du calculateur radar : 
en plaçant un marqueur sur l'image radar, 
vous obtenez la distance qui vous sépare de 
l'autre appareil. 

De même, lorsque vous voudrez rejoindre le 
porte-aéronefs, cette fonction vous sera du 
plus grand secours. 

La réalisation est soignée, même si la plan- 
che de bord manque un peu de réalisme, et 
l'avion répond bien. 

Le programme est annoncé comme ‘‘parlant 
avec un synthétiseur externe’’. Ne possédant 
pas cette interface, nous n'avons pu appré- 
cier la qualité de cette ‘’option’’. 

Notons que la version que nous avons tes- 
tée devrait être maintenant retirée du mar- 
ché : un bug empêchait la sélection du 
niveau. 


‘MISSION DELTA" 
ERE INFORMATIQUE 


Seul logiciel de création française dans cette 
catégorie, MISSION DELTA vous met aux 
commandes de l’intercepteur ‘’COBALT'", un 
appareil sophistiqué sorti de l'imagination de 
l’auteur du logiciel mais néanmoins proche 
de la réalité. 

Le manuel, livré avec la cassette, vous offre 
toute une mise en scène qui vous placera 
dans la peau du pilote. Le logiciel, écrit entiè- 
rement en Basic (ce qui explique l'absence 
d'animation graphique), est scindé en trois 


parties : l’école de pilotage et la mission ; une 
batterie de tests pour savoir si vous avez bien 
assimilé le manuel et si vous connaissez les 
possibilités de votre intercepteur. 

L'action se passe en IFR (Vol aux instru- 
ments) : il n’y a donc pas de vue sur l'exté- 
rieur. Par contre, le réalisme des situations 
a été respecté, un exemple : vous avez à 
votre disposition un émetteur-récepteur radio 
pour communiquer avec la tour et le centre 
de contrôle. Ne décollez pas sans son auto- 
risation… 

La fonction ‘‘’école’’ vous permettra de pren- 
dre votre avion en main, sans risque d'être 
attaqué par un autre intercepteur. Entraînez- 
vous à atterrir avec l'ILS (atterrissage aux ins- 
truments) et à utiliser correctement tous les 
instruments disponibles sur votre appareil. 

En ‘‘mission’’, il faudra intercepter l'ennemi 
avant qu'il ne détruise votre base, tout en 
prenant soin d'échapper à ses missiles (vous 
découvrirez avec l'expérience, les différen- 
tes parades et l’utilisation des leurres). Votre 
tâche sera compliquée par le risque de for- 
mation d’une zone DELTA dont on sait peu 
de choses. 

Simulateur très complet en ce qui concerne 
les instruments disponibles, puisque même 
le parachute de freinage et le siège éjectable 
ont été prévus, on regrettera l'absence de 
graphisme ‘‘extérieur'’, mais malgré tout, 
MISSION DELTA, en étant très proche du 
scénario aéronautique réel, présente beau- 
coup d'intérêt. 


‘‘FLIGHT PATH 737" 
ANIROG 


Agrémenté d'une musique du plus bel effet, 
FLIGHT PATH 737 nous laisse, hélas, sur 
notre faim. Si la vue initiale est très promet- 
teuse (il faut s’aligner dans l’axe de piste 
avant de décoller), le comportement de l'ap- 
pareil est assez décevant car beaucoup trop 
pointu : il posera certainement des problèmes 
aux débutants. Un exemple : la maigre 
marge de manœuvre lors des rentrées et sor- 
ties des volets. 

Après le décollage, votre but sera de franchir 
une chaîne de montagnes et de vous poser 
sur l'aérodrome situé derrière. Bon courage ! 


‘’FLIGHT SIMULATOR'' 
MYRDDIN SOFTWARE 


Avec ce logiciel de simulation de vol, il vous 
sera donné de piloter plusieurs types d'ap- 
pareils, et ce en fonction du niveau choisi, 
au départ. Si le décor de la cabine reste iden- 
tique, il n'en est pas de même du comporte- 
ment des différents avions. 

Ecrit moitié en Basic, moitié en langage 
machine, ce simulateur n'est pas inintéres- 
sant bien que présentant quelques défauts. 
Il vous permettra d'évoluer sur une surface 
matérialisée par une grille de 16 x 16 carrés 
élémentaires. Dans certains de ces carrés, 
vous trouverez des repères ‘‘sol'’ qui seront 


visualisés lors de leur survol. Vous identifie- 
rez ainsi une tour, une pyramide, des terrains 
de formes géométriques, et même la marque 
"AMSTRAD". L'altitude devra être soigneu- 
sement choisie (entre 300 et 500 pieds) pour 
que ces ‘’marques au sol’ apparaissent de 
manière agréable. 

Deux aérodromes sont disponibles : vous 
pourrez vous ÿ poser, redécoller, faire des 
‘’TOUCH-AND-GO”’, etc. Le graphisme est 
de type vectoriel, mais l'animation est, hélas, 
saccadée au rythme approximatif d'une 
image par seconde. 

La planche de bord intègre différents instru- 
ments et indicateurs : volets, train, freins, 
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compte-tours, variomètre, indicateur d'alti- 
tude, altimètre, compas, vitesse indiquée et 
jauge de carburant. Certains instruments sont 
doublés d'un affichage numérique. Votre 
position est ainsi affichée. 

Au début, les montants du pare-brise et une 
croix (sorte de collimateur) en plein centre de 
l'écran sont gênants. Par la suite, on s’y habi- 
tue. Une touche a même été prévue, les 
débutants l’apprécieront lors des entraîne- 
ments à l'atterrissage, pour revenir d'où l'on 
vient. Un petit vol ? 

Commande des gaz au maximum, volets sor- 
tis, on lâche les freins. Le moteur vrombit et 
à 40 nœuds, on décolle. Rentrée du train et 
des volets et c'est parti pour la promenade. 
Les réactions de l'appareil sont un peu mol- 
les mais non désagréables. On peut s'entraî- 
ner aux tours de piste, visiter les lieux (sur- 
vol des points caractéristiques) et revenir au 
terrain pour l'atterrissage : moteur à 1200 
tours, volets sortis (attention au décrochage), 
l'approche n'est pas très facile au début... 

Arrondi et toucher (tiens, vous aviez oublié 
de sortir le train ?), manette des gaz sur réduit 
et un petit peu de freins pour s'arrêter. Alors, 
prêt pour un autre vol ? 

Pour ceux qui connaissent, ce logiciel res- 
semble assez au ‘’FLIGHT SIMULATOR l'" sur 
Apple ou TRS 80. Il a certaines lacunes (par 
exemple, il ne détecte pas la sortie en fin de 
piste à l'atterrissage). 


‘’FLIGHTER PILOT" 
DIGITAL INTEGRATION 


Le F15 Eagle est un merveilleux avion de 
combat. Mettez votre casque et votre 
combinaison de vol car c'est sur cette 
machine, capable de voler à deux fois la 
vitesse du son, que vous allez décoller pour 
intercepter et tenter d'abattre un avion 
ennemi. 


Votre mission sera de protéger vos différen- 
tes bases aériennes, mais avant de devenir 
un pilote chevronné, vous aurez quelques 
heures de vol d'entraînement à faire : le 
combat tournoyant, ça ne s'improvise pas. 
Le simulateur propose plusieurs niveaux et 
des types de missions différents; allant de 
l'entraînement à l'atterrissage, au combat 
réel. Vous ne devriez pas vous lasser de si 
tôt. 

La planche de bord est un peu futuriste et 
s'éloigne assez de celle du F15, mais toutes 
les commandes et instruments de navigation 
et d'attaque sont présents. Vous utiliserez 
essentiellement l'horizon artificiel, le RADAR, 
le calculateur d'interception et l'ILS pour l’at- 
terrissage. 

L'avion réagit merveilleusement bien, ce qui 
est à signaler. Tonneaux rapides ou boucles 
et renversements sont réalisables. Attention 
aux fautes de pilotages : train ou volets sor- 
tis à trop grande vitesse, toucher de roues 
trop brutal, décrochaÿes, tout a été pévu. 
A défaut de mettre les pieds sur les freins 
(votre AMSTRAD ne vous le pardonnerait 
pas), actionnez-les d'un doigt. Les volets sont 
sortis, les réacteurs rugissent pleine poussée, 
post combustion allumée : lâchez les freins. 
L'avion roule et ne demande qu'à décoller. 
Tirez sur le manche et, une fois en l'air, ren- 
trez train et volets. Un coup d'œil sur le radar 
et, aidé du calculateur d'interception, vous 
allez vous diriger vers l'avion ennemi. Dès 
qu'il sera en vue, sélectionnez votre arme- 
ment, alignez-les dans le collimateur et... 
feu ! 

Facile ? Essayez pour voir ! Ilne se laisse pas 
faire... si vous le perdez de vue, vous pou- 
vez toujours regarder la carte ! 

Simulateur de vol bien réalisé, tant au point 
de vue du graphisme (piste au décollage et 
à l'approche, silhouette de l'avion ennemi), 
que de la rapidité de réaction de l'appareil, 
FIGHTER PILOT va vous faire découvrir les 
plaisirs du vol supersonique et du combat 
aérien. Heureusement que le programme ne 
pénalise pas les accélérations trop intensi- 
ves ! En ce sens, il est certainement le meil- 
leur simulateur qu'il nous a été donné de tes- 
ter sur AMSTRAD. 
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TRANSMAT CASSETTE DISQUETTE, | TOMCAT 


Le nec plus ultra de la duplication de sauvegarde bande à bande, grâce 
à ce programme simple, qui se charge pratiquement de tout, même 
sans er-tête, et normalement d'un seul coup. Si vous avez besoin de 
charger et d'imprimer des logiciels protégés, etc. vous aurez besoin du 
SYCLONE, le programme polyvalent bande à bande. Si vous n'avez 
besoin que de sauvegarder vos logiciels, qui peuvent être chargés à une 
vitesse quatre fois supérieure à la vitesse standard, il vous faut le TOM- 
CAT. Les performances et la facilité de fonctionnement du TOMCAT 
restent inégalées sur le marché. 


SYSTEME X 


Le SYSTEME X est un programme (RSX) d'extension à un système rési- 
dant qui apporte plus de 30 commandes supplémentaires à votre AMS- 
TRAD CPC 464 ou CPC 664. Etant donné la nature très compacte du 
code, il ne faut qu'environ 3k octets de la RAM, ce qui laisse une zone 
plus que confortable de programme. Le SYSTEME X utilise des com- 
mandes extérieures, identifées par la barre verticale “l” qui les précède. 


Permet le transfert facile sur disques de tous logiciels sur bande. Pour 
un système à disques AMSTRAD DDI-1. 

e Modes de fonctionnement automatiques ou non-automatiques + Lec- 
teur global d'en-tête de disque + Adjonction éventuelle de réadressage + 
Programmes faciles d'effacement ou de changement de nom. 


BOURSE D'INFORMATIONS TRANSMAT 


240 F Informations complémentaires pour passer des programmes difficiles 


EF 
TE DISQUETTE 


TRANSMAT et SYSTEME X maintenant en ROM. 
POUR VOTRE AMSTRAD 464 - 664 - 6128 


RSX 160 F_ 200 F 90 F 150 F 200 F 
SSETTE DISQUETTE| PRINTER!140 F_ 1 SCRIPTOR ETTE DISQUETTE ZEDIS 
CONe AE PAC 1 CASSETTE DISQUETTE Un élément essentiel AS 3 Un désassembleur et programme d'édition de code à 


Un ensemble RSX bande à bande qui apporte de 
nouvelles commandes ainsi que de NOMBREUSES Une extension de système résidante qui ajoute SIX 
POSSIBILITES pour votre CPC 464. nouvelles commandes à votre CPC 464/664. Un 
e Sauvegarder vos précieux logiciels pour un charge- ensemble à deux programmes conçu pour l'impri- 
ment avec une économie de temps de 75% e Choix mante AMSTRAD DMP1 (AMDUMP) et pour les 
de sept vitesses de sauvegarde, 1 000 à 4 000 bauds imprimantes compatibles ESPSON (EPDUMP). 

e Pas besoin de SYCLONE pour le rechargement à + VIDAGE ECRAN dans tous les modes. Deux for 


la fois global et convivial. Indispensable pour le 
néophyte tout comme pour l'expert. 

e Démontage complet Z80 + Insertion de point 
d'interruption et contrôle de registre e Entrée sous 
forme hexadécimale/caractères Recherche rapide 
forme hexadécimale/caractères + Instructions com- 


mante DMP:1. Six polices de caractères définissa- 
bles. Laissez faire votre DMP-1 sans extension. 

e Caractère à jambage inférieur + Futuriste + ltali- 
ques + Compatible avec AMSWORD + Ecriture liée « 
Caractères gros et gras + Programme de définition 
de caractères + Une finition professionnelle pour 


grande vitesse + Lecteur global d'en-tête - Comman- mats avec EPDUMP + Vidage texte dans tous les votre correspondance. plètes pour le démontage des ROM's » Visualisation 
des disponibles à partir du BASIC + Chargement et modes + Trois nouveaux types de caractères pour le ODD-JOB continue des menus + Pré-chargement du registre 
impression de programmes BASIC sauvegardés + DMP1 + Préciser les encres de fond (la version 664 avant l'exécution + Sortie vers l'imprimante. 
Impression de vos bandes WELCOME. n'est pas disponible sur cassette). Disque UTILITIES maintenant disponible à 


TOMCAT 


COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part — Faites le total + frais d t (20F 
achats inférieurs à 500 F) Franco pour achats supérieur à 500 F Frs pee TRANSMAT 
SCRIPTOR 


SIGNATURE 


NOM ___ = - - _ 


RSX SYCLONE 2 


ADRESSE 

: | SYSTEME X 
Mode de paiment : [] chèque/[] mandat/[] contre-remboursement (prévoir 20 F de frais) — envoyer le tout PRINT 
|__à: ESAT SOFTWARE, 55, rue du Tondu, 33000 Bordeaux ER PAC 1 


à Tél.: (56) 24.05.34 
z 257, rue Judaïque 
BORDEAUX 


MICRO:-C s.AR.L 


1, Av. du Gal. de Gaulle 
35170 BRUZ 
Tél.: 99.52.67.08 
Revendeur officiel AMSTRAD 


CPC 464 vert 
CPC 464 couleur 
CPC 664 vert 
CPC 664 couleur 
CPC 6128 vert 


Joystick 

Câble magnéto 
Disquette 3” 
Cassette C15 


peter 60 
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LOGICIELS SCOLAIRES OU EDUCATIFS 
POUR SECONDAIRE 
— FONCTIONS {courbes et intégrales) 


{le pack de 2 sur K7 ou D : 200 F] 
POUR PRIMAIRE 
— Arithmétique (+, —, 
— Tables de calcul 

{le pack de 2 K7 ou D : 200 F) 


— Microverbe (conjugaison) 
— Microgéo (géographie) 
{les 2 sur D : 350 F|. 


200 logiciels et jeux 
20 livres (dont Micro-application) 


Catalogue sur demande contre 11 F en timbres, remboursé sur achat. 
Pour commande, joindre chèque ou mandat {+ 30 F de port). 


PRIX SPÉCIAUX 


CPC 6128 Nouveaux tarifs. 
POUR LECTEURS DE CPC disponible. Nous consulter. 


AVIGNON : (90) 22.47.26 


Clone 


PAUNT: 


Pascal HIGELIN 


ous qui possédez un AMSTRAD, n’avez-vous 

jamais rêvé d’avoir un Macintosh ou même 

d'utiliser votre AMSTRAD pour faire des des- 
sins dignes de Mac-paint ? Si c’est le cas, alors lisez 
attentivement les lignes qui suivent. 


Cette série d'articles a pour objet 
de vous décrire la mise en route, 
l'utilisation et le fonctionnement 
du programme ‘‘Cherry-Paint'’. 
Comme vous pouvez le consta- 
ter sur les photos, l'écran res- 
semble assez à celui de Mac- 
paint, et ce n’est pas un hasard 
car le programme fonctionne uni- 
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quement en MODE 2, donc avec 
une résolution de 640 x 200 
points. On pourra apprécier la 
finesse du tracé, surtout sur un 
moniteur monochrome, car sa 
résolution est bien meilleure. 
Contrairement au Macintosh, 
l'AMSTRAD ne possède pas d’in- 
terface ‘‘souris'’, aussi, ce sont 


les touches du curseur qui vont 
servir à déplacer les icônes et la 
barre d'espacement à ‘‘cliquer'” 
sur les outils ou les trames. 


Dans ce premier épisode, nous 
allons nous occuper de créer la 
table des trames et l’image de; 
fond pour le programme. Le pro- 
gramme ‘‘Cherry-Paint'’ ne pren- 
dra donc vie que le mois pro- 
chain, lorsque fonctionneront le 
crayon, la gomme, la bombe de 
peinture, le pinceau, la manipu- 
lation, la sauvegade et la restitu- 
tion d'une image. Pour ces sau- 
vegardes, il serait de loin préfé- 


#4 "0". 


rable de disposer d’un lecteur de 
disquettes pour ne pas:atteindre 
des temps de chargement d'ima- 
ges prohibitifs. Le programme est 
entièrement compatible CPC 
464, 664, 6128. 


DESCRIPTION 
DES PROGRAMMES 


Le premier: programme de ce 
mois “s'appelle ‘’TRAMES''. 
Comme son nom l'indique, ce 
programme va transformer les 
trames de 16 x 8 points enregis- 
trées dans les lignes de DATA.en 
un fichier binaire nommé 
‘’TR.BIN’’. Ce fichier servira aussi 
bien à la création de l’image de 
fond que lors de l’utilisation du 
programme. ‘“Cherry-Paint””. Si la 
forme des trames ne vous 
convient pas, il est bien sûr facile 
de les modifier en changeant les 
valeurs contenues en DATA, 
sachant que sur l’image de fond 
la trame 1 sera située en haut à 
gauche, la trame 2 en bas à gau- 
che et ainsi de suite. 


Le second programme s'appelle 
‘‘’ECRAN'”’. Avant de le lancer, il 


. 


A 
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faudra vous assurer que le fichier 
“*TR.BIN”’. créé par ‘’TRAMES”" 
est bien sur le disque. Le pro- 
gramme ‘’ECRAN'" va s'occuper 
de dessiner l'image de fond.de 
‘’Cherry-Paint”. Pour céla,.il va 
procéder en plusieurs étapes. 


La partie initialisation sélectionne 
le mode, les couleurs, charge la 
table des trames et remplit l'écran 
de caractères grisés. 

Les parties suivantes commen- 
cent toutes par tracer un cadre 
rempli de blanc qui contiendra les 
différents objets (outils, pin- 
ceaux, trames, etc.). Tous ces 
objets sont tracés en coordon- 
nées relatives, il est donc très 
facile de les déplacer ; il suffit de 
modifier les coordonnées de 
départ. Evitez tout de même de 
déplacer trop d'objets, sinon il ris- 
que de se passer des choses sur- 
prenantes Jors du fonctionnement 
de ‘’Cherry-Paint'’ ! 


La dernière partie du programme 
va sauvegarder l'image ainsi 
créée sur disque sous le nom 
‘’SCR.BIN'’ puis va boucler pour 
éviter d'écrire sur l'écran. 
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Voilà pour aujourd ui, Je.) Vous / 
retrouverai le mois prochain pou 
la suite-dercette série‘en.espéran 
que vous ayez eu le courage de 
taper ces quelque 20 k de Basic. 


110 ? CE PROGRAMME TRANSFORME 
LES TRAMES DE 16*8 POINTS 


120 ? ENREGISTREES EN DATA EN 
UN FICHIER BINAIRE NOMME 

130 ? “TR. BIN" 

DD — 
150 ? 


160 DATA £X00000000, UX00Q00000 
170 DATA &X00000000, &X00000000 

180 DATA £X00000000, &XD0000000 

190 DATA &X00000000, &X00000000, 

200 DATA &X00000000, &XUDD00000 

210 DATA &X00000000£*00000000 à. 
220 DATA &X00000000,8X00000900 \.« 
230 DATA &X00000000,8X 00000000 
240 ? 

250 DATA BXLLLTITÉQEXLLLLL IN 
260 DATA &X11111111,8X11111111 
270 DATA &x11111111,8X11111111 
280 DATA &X11111111,8X11111111 
290 DATA &X11111111,8X11111111 


à 
à 
: 


J00 DATA &X11111111,&X11111111 
310 DATA &X11111111,8X11111111 
320 DATA &X11111111,8X11111111 
330 ? 

340 DATA &X00000000, &X00000000 
350 DATA &X00100000, &X0D100000 
360 DATA &X00000000, &X00000000 
370 DATA &X00000010, &X00000010 
J80 DATA &X00000000, &X00000000 
390 DATA &X00100000, &X00 100000 
400 DATA &X00000000, &X00000000 
410 DATA &X00000010, &X00000010 
420 

430 DATA &X11111111,&X11111111 
440 DATA &X11011111,&X11011111 
450 DATA &X11111111,8X11111111 
460 DATA &X11111101,8X11111101 
470 DATA &X11111111,8X11111111 
480 DATA &X11011111,8X11011111 
490 DATA &X11111111,8X11111111 
500 DATA &X11111101,8X11111101 
510 

520 DATA &X00000000, &X00000000 
530 DATA &X00100010,&X00100010 
540 DATA &X00000000, &X00000000 
550 DATA &X10001000, &X10001000 
560 DATA &X00000000, &X00000000 
570 DATA &X09100010,&X00100010 
| 580 DATA &X00000000, &X00000000 
590 DATA &X10001000, &X 10001000 
600 ? 

610 DATA &X11111111,8X11111111 
620 DATA &X11011101,&8X11011101 
630 DATA &X11111111,8X11111111 
64D DATA &X01110111,8X01110111 
650 DATA &X11111111,8X11111111 
660 DATA &X11011101,8X11011101 
670 DATA &X11111111,8X11111111 
680 DATA &X01110111,&X01110111 
690 ? 

700 DATA &X00100010,&X00100010 
710 DATA &X10001000, &X 10001000 
720 DATA &X00100010,&X0D0100010 
730 DATA &X10001000, &X10001000 
740 DATA &X00100010,£&X00100010 
750 DATA &X10001000,&X10001000 
780 DATA &X00100010,&X00100010 
770 DATA &X10001000, &X10001000 
780 

790 DATA &X11011101,8X11011101 
| 800 DATA &X01110111,8X01110111 
| 810 DATA &X11011101,8X110111D1 
820 DATA &X01110111,8X01110111 
830 DATA &X11011101,8X110111D1 
840 DATA &X01110111,8X01110111 
850 DATA &X11011101,8X11011101 
| 840 DATA &X01110111,8X01110111 
870 


880 DATA &X10101010,8X10101010 
890 DATA &X01010101,8X01010101 
900 DATA &X10101010,8X10101010 

910 DATA &X01010101,8X01010101 

920 DATA &X10101010,8X10101010 

930 DATA &X01010101,&X01010101 

940 DATA &X10101010,8X10101010 

950 DATA &X01010101,8X01010101 

960 ? 

970 DATA &X11001100,&X11001100 

980 DATA &X00110011,&X00110011 

990 DATA &X11001100,&X1 1001100 

1000 DATA &X00110011,8X00110011 
1010 DATA &X11001100, &X11001100 
1020 DATA &X00110011,&8X00110011 
1030 DATA &X11001100,&X1 1001100 
1040 DATA &X00110011,&X00110011 
1050 

1060 DATA &X11110000, &X11110000 
1070 DATA &X11110000, &X1 1110000 
1080 DATA &X00001111,&X00001111 
1090 DATA &X00001111,&X00001111 
1100 DATA &X11110000, &X1 1110000 
1110 DATA &X11110000, &X1 1110000 
1120 DATA &X00001111,8X00001111 
1130 DATA &X00001111,&X00001111 
1140 ? 

1150 DATA &X11111111,&X00000000 
1160 DATA &X11111111,&X00000000 
1170 DATA &X11111111,&X00000000 
1180 DATA &X11111111,&X00000000 
1190 DATA &X00000000,8*X11111111 
1200 DATA &XO0C00000,8X11111111 
1210 DATA &X00000000,8X11111111 
1220 DATA &XO0000000,&X11111111 
1230 

1240 DATA &X11111111,8X11111111 
1250 DATA &X00000000, &X00000000 
1260 DATA &X11111111,8X11111111 
1270 DATA &X00000000, &X00000000 
1280 DATA &X11111111,8X11111111 
1290 DATA &X00000000, &X00000000 
1300 DATA &X11111111,8X11111111 
1310 DATA &X00000000, &X00000000 
1320 ? 

1330 DATA &X11001100, &X11001100 
1340 DATA &X11001100,8X11001100 
1350 DATA &X11001100,8&X11001100 
1360 DATA &X11001100, &X1 1001100 
1370 DATA &X11001100,8X11001100 
1380 DATA &X11001100,&X 11001100 
1390 DATA &X11001100, &X1 1001100 


| 1400 DATA &X11001100, &X1 1001100 


1410 ? 

1420 DATA &X00001100, &X00001100 
1430 DATA &X00001100, &X00001100 
1440 DATA &X0C001100, &X00001100 
1450 DATA &X00001100, &X00001 100 


1460 DATA &X00001100, &X0000D1 100 
1470 DATA &X00001100, &X00001 100 
1480 DATA &X00001100, &X00001 100 
1490 DATA &X00001100, &X00001 100 
1500 

1510 DATA &X00000000, &X00000000 
1520 DATA &X00000000, &X00000000 
1530 DATA &X11111111,8X11111111 
1540 DATA &X00000000, &X00000000 
1550 DATA &X00000000, &X00000000 
1560 DATA &X00000000, &X00000000 
1570 DATA &X11111111,8X11111111 
1580 DATA &X00000000, &X00000000 
1590 ? 

1600 DATA &X11111111,8X11111111 
1610 DATA &X11111111,8X11111111 
1620 DATA &X00000000, &X00000000 
1630 DATA &X11111111,&X11111111 
1640 DATA &X11111111,8X11111111 
1650 DATA &X11111111,8X11111111 
1660 DATA &X00000000, &X00000000 
1670 DATA &X11111111,8X11111111 
1680 

1690 DATA &X11110011,8X11110011 
1700 DATA &X11110011,8X11110011 
1710 DATA &X11110011,8X11110011 
1720 DATA &X11110011,8X11110011 
1730 DATA &X11110011,8X11110011 
1740 DATA &X11110011,8&X11110011 
1750 DATA &X11110011,8X11110011 
1760 DATA &X11110011,&X11110011 
1770 ? 

1780 DATA &X00001100,&X00001 100 
1790 DATA &X00000011,&X0000001 1 
1800 DATA &X11000000, &X1 1000000 
1810 DATA &X001 10000, &X001 10000 


1820 DATA &X00001100, &X00001 100 
1830 DATA &X00000011,&X0000001 1 


1840 DATA &X11000C00, &X1 1000000 
1850 DATA &XO0110000, &X001 10000 
1860 

1870 DATA &X00001100, &X00001100 
1880 DATA &X00110000, &X001 10000 
1890 DATA &X11000000, &X 1 1000000 
1900 DATA &X00000011,&X00000611 
1910 DATA &X00001100,&X00001100 
1920 DATA &X00110000,&X00110000 
1930 DATA &X11000000, &X 11000000 
1940 DATA &X00000011,&X00000011 
1950 ? 

1960 DATA &X00001000, &X00001000 
1970 DATA &X00010000, &X00010000 
1980 DATA &X00100000, &X00100000 
1990 DATA &X01000000, &X01000000 
2000 DATA &X10000000, &X 10000000 
2010 DATA &X00000001, &X00000001 
2020 DATA &X00000010, &XC0000010 
2030 DATA &X00000100, &XC0000100 
2040 ? 


2050 DATA &X00001000, &X00001000 
2060 DATA &X00000100, &X00000100 
2070 DATA &X00000010, &X00000010 
2080 DATA &X00000001, &X00000001 
2090 DATA &X10000000, &X10000000 
2100 DATA &X01000000, &X01000000 
2110 DATA &X00100000, &X00100000 
2120 DATA &X00010000, &X00010000 
2130 

2140 DATA &X0001 1000, &X0001 1000 
2150 DATA &X00100100, &X00100100 
2160 DATA &X01000010, &X01000010 
2170 DATA &X10000001,&X10000001 
2180 DATA &X10000001,&X10000001 
2190 DATA &X01000010, &X01000010 
2200 DATA &X00100100, &X00100100 
2210 DATA &X0001 1000, &X0001 1000 
2220 

2230 DATA &X00001111,&X00000000 
2240 DATA &XOU110000, &X 11000000 
2250 DATA &X11000000, &X001 10000 
2260 DATA &X00000000, &X00001 111 
2270 DATA &X00000000, 8&X00001111 
2280 DATA &X11000000, &X001 10000 
2290 DATA &X00110000, &X 11000000 
2300 DATA &X00001111,&X00000000 
2310 

2320 DATA &X00110000, &X001 10000 
2330 DATA &X001 10000, &X001 10000 
2340 DATA &X11111111,8X11111111 
2350 DATA &X001 10000, &X001 10000 
2360 DATA &X00110000, &X001 10000 
2370 DATA &X00110000, &X001 10000 
2380 DATA &X11111111,8X11111111 
2390 DATA &X001 10000, &X001 10000 
2400 

2410 DATA &X00111100,&X00111100 
2420 DATA &X11111111,8X11111111 
2430 DATA &X11111111,8X11111111 
2440 DATA &X00111100,8X00111100 
2450 DATA &X00111100,8X00111100 
2460 DATA &X11111111,8X11111111 
2470 DATA &X11111111,8X11111111 
2480 DATA &X00111100, &X00111100 
2490 ? 

2500 DATA &X00110000, &X00000000 
2510 DATA &X001 10000, &X00000000 
2320 DATA &X11111111,8X11111111 
2530 DATA &X00000000, &X001 10000 
2340 DATA &X00000000, &X001 10000 
2550 DATA &X00000000, &X001 10000 
2560 DATA &X11111111,8X11111111 
2570 DATA &X00110000, &X00000000 
2580 

2590 DATA &X00001100, &X00001 100 
2600 DATA &X00110011,&X00110011 
2610 DATA &X11000000, &X1 1000000 
2620 DATA &X00000011,&X0000001 1 


2630 DATA &X00001100, &X00001100 
2640 DATA &X00110011,8X00110011 
2650 DATA &X11000000, &X 11000000 
2660 DATA &X00000011,&X0000001 1 
2670 ? 

2680 DATA &X10000000, &X00000001 
2690 DATA &X10000000, &X00000001 
2700 DATA &X01100000, &X00000110 
2710 DATA &X00011111,8X11111000 
2720 DATA &X00000001, &X10000000 
2730 DATA &X00000001, &X 10000000 
2740 DATA &X00000110,&X01 100000 
2750 DATA &X11111000,&X00011111 
2760 

2770 DATA &X10010000,8X00011111 
2780 DATA &X11100000, &X001 {0000 
2790 DATA &X01111110,&X01000000 
2800 DATA &X11000011,8&X10000000 
2810 DATA &*X00000001,8X11111001 
2820 DATA &X00000011,&X00001110 
2830 DATA &X11100100,&X00000111 
2840 DATA &X001 11000, &X00001 100 
2850 

2860 DATA &X11000011,8X11111111 
2870 DATA &X11000011,&X00000000 
2880 DATA &X11000011,&X00000000 
2890 DATA &X11000011,8&X11111111 
2900 DATA &X11111111,8X11000011 
2910 DATA &X00000000, &X11000011 
2920 DATA &X00000000, 8x1 1000011 
2930 DATA &X11111111,8X11000011 
2940 

2950 DATA &X10010001,8X10010001 
2960 DATA &X11100011,8&X11100011 
2970 DATA &X11000111,8X11000111 
2980 DATA &X10001001,&X10001001 
2990 DATA &X10011000, &X1001 1000 
3000 DATA &X01111100,&X01111100 
3010 DATA &X00111110,8X00111110 
3020 DATA &X00011001,&X0001 1001 
9030 

3040 DATA &X01111110, &X00000C00 
3050 DATA &X10011111,8&X00000000 
3060 DATA &X11111111,8X00000000 
3070 DATA &X01111110,&X0001 1000 
3080 DATA &X00000000,8X01111110 
3990 DATA &X00000000, &X10011111 
3100 DATA &X00000000,8X11111111 
3110 DATA &X00011000,8X01111110 
9120 

3130 DATA &X00000000, &X00000000 
3140 DATA &X00060000, &XC0000000 
3150 DATA &X00001111,8X11111111 
3160 DATA &X00001111,8X11111111 
3170 DATA &X00001111,&X00000011 
3180 DATA &X00001111,8X0000001 1 
3190 DATA &X00001111,8X00000011 
3200 DATA &X00001111,8X11111111 


3210 ? 

3220 DATA &X00000011,&X0000001! 
3230 DATA &X00001111,&X00001111 
3240 DATA &X00111111,8X00111111 
3250 DATA &X11111111,8X11111111 
3260 DATA &X00000011,&XD0000011 
3270 DATA &X00001111,&X00001111 
3280 DATA &X00111111,&X00111111 
3290 DATA &X11111111,&X11111111 
3300 

3310 DATA &X0001 1000, &X0001 1000 
3320 DATA &X00111100,&X00111100 
3330 DATA &X01111110,&X01111110 
3340 DATA &X11111111,&X11111111 
3350 DATA &X11111111,8X11111111 
3360 DATA &X01111110,8&X01111110 
3370 DATA &X00111100, &X001 11100 
3380 DATA &X0001 1000, &X0001 1000 
3390 ? 

3400 DATA &X00001111, &X00000000 
3410 DATA &X00001000, &X00001 100 
3420 DATA &X00111100, &X00000000 
3430 DATA &X00111100, &X00000000 
3440 DATA &X00000000, &X01 1 {1000 
3450 DATA &X00011000, &X01 111000 
3460 DATA &X00000000, &X00001111 
3470 DATA &X00001111,&X00001111 
3480 

3490 DATA &X00000000, &X00000000 
3500 DATA &X00000000, &X10000000 
3510 DATA &X00000001, &X01 1 10000 
3520 DATA &X00000010, &X01 111000 
3530 DATA &*00000100, &X001 11100 
3540 DATA &X00111100,&X00111100 
3550 DATA &X01011110, &X00001100 
3560 DATA &X00111100, &X00000000 
3570 ? 

3580 DATA &X11111111,8X11111100 
3590 DATA &X11000000, &X00001 100 
3600 DATA &X11001111,8X11001100 
J610 DATA &X11001100,&X11001100 
3620 DATA &X11001111,&X11001100 
3630 DATA &X11000000, &X00001 100 
3640 DATA &X11111111,8X11111100 
3650 DATA &X00000000, &X00000000 
3660 

3670 DATA &X11010111,8X11010111 
3680 DATA &X01010000, &X01010000 
3690 DATA &X01011111,8X01011111 
3700 DATA &X01000001,&X01000001 
3710 DATA &X01111101,8X01111101 
3720 DATA &X00000101,&X00000101 
3730 DATA &X11110101,8X11110101 
3740 DATA &X00010100, &X00010100 
3750 ? 

3760 ADR7=&5000 


3770 FOR 1%=1 TO 40#16:READ P2:POKE ADRY 


PA: ADRY=ADRA +1 :NEXT 
3780 SAVE"TR",P, 85000, ADR -&5000 
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100 ” 

110 ? CE PROGRAMME DESSINE L'IMAGE DE FOND POUR LE 

120 * PROGRAMME DE SIMULATION DE MAC-PAINT, IL EST : 

130 ? INDISPENSABLE QUE LE DISQUE CONTENANT LE 

140 ? FICHIER TR.BIN" CREE AVEC LE PROGRAME 

150 ? *TRAMES" SOIT DANS LE LECTEUR. 

160 ” nn ne 
170 

180 ? 

190 

200 - INITIALISATION 

210 ? nn era 
220 LA 

230 ? CHARGEMENT DES DONNEES 

240 ? | 

250 MEMORY &FFF 'RESERVE DE LA PLACE 

260 LOAD'TR",&5000 *CHARGE LA TABLE DE TRAMES 

270 ? 

280 ? REDEFINITION DES CARACTERES FRANCAIS 

290 * 


300 SYMBOL 254,4k60,k10,R3C, kbb,K7E, RéD, &3C 
310 SYMBOL 255,&6,88, &9C, &éb, W7E, kbD, RC 
320 ? 

330 INITIALISATION DE L'ECRAN 
340 * 

350 MODE 2 

360 IAK 0,26:INK 1,0:BORDER 0 

370 ' 

380 * REMPLIT L'ECRAN DE GRIS 


*POUR UN MONITEUR COULEUR: INK 0,13 


400 FOR 1X=1 TO 25 

410 PRINT STRINGS(B0,207); 
420 NEXT 

430 * 

AO rem mn manne 
450 ? DESSIN DU CADRE CONTENANT LES EPAISSEURS DE TRAIT 
460 L 
470 ? 
480 Gl=10:D1=80:H1=78:Bl=8:G0OSUB 3130 
490 

500 FOR Ie0 TO 5:MOVE 25,28-1#2:DRAMR SU,D:NEXT ‘TRAIT D'EPAISSEUR 6 
310 ' 

520 FOR I=0 TO J:MOVE 25,42-I#2:DRAHR 50,D:NEXT "TRAIT D'EPAISSEUR 4 
530 ’ 

540 FOR I=0 TO 1:MOVE 25,52-1#2:DRAWR 50,0:NEXT TRAIT D'EPAISSEUR 2 
550 

560 MOVE 25,60:DRANR 50,0 


DESSIN DU CADRE (EN BLANC) 


? TRAIT D'EPAISSEUR 1 


570 
580 MOVE 25,68 'POINTILLE 
590 FOR 1x1 TO 12 ?12 SEGMENTS 


600 DRAWR !,0:MOVER 3,0 "ALLUME 2 POINTS, AVANCE DE 2 


610 MENT "POINTS PUIS RECOHMENCE 
620 DRAR 1,0 MTERMINE PAR UN SEGHENT ALLUME 
60". 


640 MOVE 13,24:DRAUR 1,0:DRAMR 1,-2:MOVER 0,-2 ’DESSIN DU POINTEUR 
650 DRAMR 2,0:DRAWR 0,2:DRAWR 3,6:DRAMR 1,0 


660 ; 


680 " DESSIN DU CADRE CONTENANT LES PINCEAUX 

UND mmmnanmanmonensamemenmesnmrenmnnemnnenmnn essuie 
700 ‘ 

710 GL=10:DL=80:HLs190:BX=8B:GOSUB 3130 
72‘ 

730 MOVE 45, 188:DRAH 45,88, 1 

740 MOVE 46, 188:DRAN 46,88 

750 FOR 1=1 10 2 

760 MOVE 10,190-34#1:DRAU 80, 190-3441, 1 
770 EXT 

780 * 

790 MOVE 20, 180 

800 FOR I=1 TO 4 

810  DRAHR 15,0:DRAHR 0, -2 

820  DRANR -15,0:MOVER D, -2 

830 NEXT 

840 * 

850 MOVE 60, 174:DRAMR 3,0:DRAMR 0,-2:DRAMR -3,0 "DESSIN DU PETIT PINCEAU CARRE 


"DESSIN DU CADRE 


DESSIN DU QUADRILLAGE 


DESSIN DU GROS PINCEAU CARRE 


870 MOVE 25,144:DRAWR 5,0:MOVER 2,-2:DRAMR -9,0 ‘DESSIN DU GROS PINCEAU ROND 
880 MOVER -1,-2:DRAMR 11,0:MOVER O,-2:DRAWR -11,0 
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. 940 MOVE 55,98:DRAMR 15,15 


890 MOVER 1,-2:DRAUR 9,D:MOVER -2,-2:DRAUR 5,0 
900 LA 

910 MOVE 20, 104:DRAMR 15,0 

920 1 

930 MOVE 54,98:DRAUR 15,15 


"DESSIN DU PINCEAU PLAT 
DESSIN DU PINCEAU OBLIQUE 


950 L 

960 MOVE 61, 140:DRANR 3,C:MOVER 1, -2 
970 DRANR -5,0:MOVER 1,-2:DRAMR 3,0 
980 , 
QD" 
1009 * DESSIN DU CADRE CONTENANT LES OUTILS 
1010 ? 
1020 * 
1030 G4=10:D1=80:H1=370:BX=200:6080B 3130 
1040 

1050 MOVE 45,370:DRAN 45,200, 1 

1060 MOVE 46,370:DRAM 46,200, | 

1070 FOR I=0 70 4 

1080 MOVE 10,370-34#1:DRAW 80,370-3481, 1 
1090 NEXT 

1100 ? ‘ 
1110 MOVE 22, 338:DRAUR 2, 10:DRAMR 10,20:DRAMR 2,0 ‘DESSIN DU CRAYON 
1120 DRAWR 1,-2:DRAUR 1,0:DRAUR 0,-4:DRAUR -9,-18 
1130 DRAWR -7,-6:DRAUR 1,2:MOVER 3,8:DRANR 1,0 
1140 DRAWR 1,-2:MOVER -1,2:DRAUR B, 16 

1150 * 

1160 MOVE 22,312:DRAMR 0, 6:DRAHR 9,0:DRAUR 0, -4 
1170 DRAMR -9,0:MOVER 10, 2:DRAR 3, 8:DRAUR 0,6 
1180 DRAUR -3,-6:MOVER -9, O:DRAUR 3, 6:DRAUR 9,0 
1190 ? 

1200 MOVE 82, 330:DRANR 0,-10:DRAMR 1,0:DRAMR 0, 12 
1210 DRAUR 1,0:DRAUR 0,-2:DRAMR 1,0:MOVER D, 4 
1220 DRAUR 0,-6:DRAMR -1,0:DRAMR D, 6:MOVER -6, -8 
1230 DRAWR 11,0:DRAUR 0,-10:DRAUR -1,-2 

1240 DRAWR -12,0:DRAHR 2, 4:DRAHR D, 6:MOVER D, -2 
1250 DRAMR 10, D:MOVER -1,-6:DRAMR -1,0 

1260 MOVER -2,0:DRANR -1,D:MOVER -2,0 

1270 DRAUR -1,0:MOVER -2, D:DRAUR -1,0 

1280 ? 

1290 MOVE 57, 340:DRAMR D, 18:DRAMR 13,0:DRAWR O,-18 DESSIN DE LA RONBE 
1300 DRAWR -13,0:MOVER 1,20:DRAMR 1,0:DRANR 0, 2 
1310 DRAUR 2,0:DRAMR 1,2:DRAUR 3,0:DRAUR 1,-2 
1320 DRAWR 2,0:DRAUR 0,-2:DRAMR 1,0:MOVER -4,6 
1320 DRAWR -3,0:MOVER 7,-14:DRANR -6,D:DRANR D, -6 
1340 DRAWR 6,O:DRAMR 0, 2:DRAMUR -6,0 

1350 * 

1360 MOVE 24,272:DRAUR -4,B:DRAMR 0, 10:DRAWR 1,2 
1370 DRAUR 1,0:DRAMR 0,-B:DRANR 1,-2:DRAMR 1,2 
1380 DRAWR D, 10:DRAMR -1,2:DRAHR 1,2:DRANR 1,0 
1390 DRAWR 2,-4:DRAUR 0,-B:MOVER 0, 10:DRAUR 1,0 
1400 DRAWR 2,-4:DRANR 0,-B:MOVER D, 10:DRAWR 3,-4 
1410 DRAMR O,-8:MOVER D,B:DRAUR 2, -4:DRAMR 0, -10 
1420 DRAUR -3,-8 

1430 

1440 MOVE 50,276 

1450 FOR I=1 10 3 

1460  DRAMR 3,0:MOVER 5,0 

1470 NEXT 

1480 DRAWR 3,0 

1490 FOR I=1 T0 2 

1500  DRAUR D, 3:MOVER 0,5 

1510 NEXT 

1520 DRAWR 0,3:DRAMR -1,0 

1530 FOR 1=1 T0 2 

1540  DRAWR D,-3:MOVER D, -5 

1550 NEXT 

1560 DRAHR 0,-3:MOVER 1,18 

1570 FOR 1=1 T0 3 

1580 DRAUR -3,O:MOVER -5,0 

1590 NEXT 

1600 DRANR -3,0 

1610 FOR I=1 T0 2 

1620  DRAHR O,-1:MOVER 0,-7 

1630 NEIT 

1640 DRAHR 0,-1:DRAHR 1,0 

1650 FOR I=1 T0 2 

1660  DRAHR D, L:MOVER 0,7 

1670 NEXT 


“DESSIN DU PETIT PINCEAU FOND. 


*DESSIN DU CADRE 
"DESSIN DU QUADRILLAGE 


"DESSIN DE LA GONE 


DESSIN DE PINCEAU 


DESSIN DE LA MAIN 


DESSIN DU RECTANGLE 
YEN POINTILLE 


1680 DRANR 0,1 
1690 ? 
1700 MOVE 28,262:DRAMR 11,-22:DRAMR 1,0:DRAUR -2,0 "DESSIN DE LA LETTRE ’4' 
1710 DRANR -11,22:DRAMR O,-1:DRANR 10,-20:DRAMR -3,0 
1720 DRANR 2,0:DRAWR -10,20:DRAUR -10,-20:DRAMR -1,0 
1730 DRAMR 4,0:DRAUR -2,0:DRANR 10,20:MOVER -5,-13 
1740 DRANR 12,0 
1750 
1760 MOVE 50,25B:DRANR 26,-14 
1770 MOVE 51,258:DRAMR 26, -14 
1780 
1790 NOVE 14,22b:DRANR 28,0:DRAUR 0,-20:DRAMR -28,0 "DESSIN DU RECTANGLE VIDE 
1800 DRANR 0,20:DRAMR 27,0:DRAMR O,-20:DRA4R -26,0 
1810 DRANR 0,20 
1820 
1830 MOVE 49,226:DRANR 28,0:DRANR 0,-20:DRAWR -28,0 ’DESSIN DU RECTANGLE PLEIN 
1860 DRAWR O,20:DRAMR 27,0:DRAUR O,-20:DRANR -26,0 
1850 DRAR 0,20 
1860 FOR I=1 T0 5 
1870 FOR Jei TO 13 
1880 PLOTR 2,0 
NEXT 
MOVER 1,-2 
FOR J=1 TO 14 


"DESSIN DE LA DROITE 


…. Gte-2:01s640:H4%400: 82= 300: 60SUB 3130 DESSIN DU CADRE 
2030 TAG:MOVE 40,397 
2040 PRINT" Fichier 
2050 PRINT* 
2060 TAGOFF 
2070 L 

2080 MOVE D,380:DRANR 640,0,0 

2090 L 

2100 MOVE 21,382:DRANR 3,0, 1:MOVER 1,2:DRAWR -1,0 
2110 MOVER -2,0:DRAUR -2,0:MOVER 1,2:DRAUR 3,0 
2120 DRANR D, 4:DRANR 3,6:DRANR 1,-2:DRAUR 3,0 
2130 DRAUR 2,-2:DRANR -5,0:DRAWR 1,-2:DRAMR 5,0 
2140 DRAWR -1,-2:DRAWR -3,0:MOVER 2,-2:DRAWR 2,0 
2150 DRAWR 0,2 

2160 ’ 

2170 ne, 
2180 ? DESSIN DES ARRONDIS DES COINS 
2190 ? 

2200 

2210 MOVE 0,392:DRAW 0,400, 1:MOVE 1,392:DRAW 1,400 

2220 MOVE 2,396:DRAN 2,400:MOVE 3,396:DRAM 3,400 

2230 MOVE 4,398:DRAN 4,400:MOVE 5,398:DRAN 5,400 

2240 MOVE 6,398: DRAM 6,400:MOVE 7,398:DRAM 7,400 

at 

2260 MOVE 639,392:DRAN 639,400, 1:MOVE 638,392:DRAW 638,400 COIN EN HAUT 
2270 MOVE 637,396:DRAM 637,400:MOVE 636,396:DRAM 636,400 ‘A DROITE 
2280 MOVE 635,398:DRAN 635,400:MOVE 634,398:DRAW 634,400 
2290 MOVE 633,398:DRAN 633, 400:MOVE 632,398:DRAU 632, 400 
2300 L 

2310 MOVE 0,0:DRAW 0,7,1:M0VE 1,0:DRAW 1,7 

2320 MOVE 2,0:DRAM 2,3:MOVE 3,0:DRAN 3,3 

2330 MOVE 4,0:DRAM 4,1:MOVE 5,0:DRAW 5,1 

2340 MOVE 6,0:DRAW 6, 1:MOVE 7,0:DRAM 7,1 

2350 

2360 MOVE 639,0:DRAN 639,7, 1:MOVE 638,0:DRAM 638,7 

2370 MOVE 637,0:DRA4 637,3:MOVE 636,0:DRAM 636,3 

2380 MOVE 635,0:DRAM 635,1:MOVE 634,0:DRAH 634,1 

2390 MOVE 633,0:DRAN 633,1:MOVE 632,0:DRAN 632,1 

2400 ” 

2410 PLOT 639,9,0:PLOT 638,9,0:PLOT 637,5,0:PLOT 636,5,0 
2420 PLOT 635,3,0:PLOT 634,3,0:PLOT 633,3, 1:PLOT 632,3,0 
243 ? 

QUAD ee pee 
2450 ? DESSIN DU CADRE CONTENANT LA FEUILLE DE DESSIN 
2460 ? 

2470 ? 


IMPRESSION DES OPTIONS 
Facilit"+CHR$(255)+"5"; 
Style"; 


Edition 


Caract*+CHR6(254)+'res Taille 


"DESSIN DE LA CERISE 


*COIN EN HAUT 
*A GAUCHE 


"COIN EN BAS 
*A GAUCHE 


"COIN EN BAS 
*A DROITE 


*CORRECTIONS DUES 
"AU FOND TRAME 


2480 62=95:D4=624:H4=365:B4=05:GOSUB 3130 
2490 ” 

2500 MOVE 95,345: DRAN 624,345, 1 

2510 FOR 1=349 TO 365 STEP 4 

2520 MOVE 105,1:DRAM 614,1,1 

2530 NEXT 

2540 

2550 MOVE 320,361 :TAG 

2560 PRINT * SANS MM ‘; 


DESSIN DU CADRE 
"LIGNES HORIZONTALES 


?NOM DE L’IMAGE 


DESSIN DU CADRE CONTENANT LES TRAMES 


2630 61-90: D1=630:H1=48:B1=0:60SUB 3130 

2640 

2650 MOVE 152,28:DRAM 630,28 

2660 FOR 1=1 T0 20 

2670 MOVE 632-1424, 48:DRAUR D, -40 

2680  DRAWR -1,0:DRAMR 0,40 

2690 NEXT 

2700 

2710 G4=103:Dt=136:H4=40:B1=16:60S0B 3130 

21720 * 

2730 PRINT CHRS(23)4CHRS (3) :: TAG 

2740 ? 

2750 ORIGIN 0,0,0,639, 46, 30 

2760 FOR 1:0 TO 38 STEP 2 

2770  A=k5000+1#16 

180  SYMBOL 254, PEEKIA), PEEKIA+2), PEEK(A#4), PEEKUA+6), 
PEEK(A+B) , PEEK(A+10) , PEEK(A+12) , PEEK(A+14) 

2190  SYMBOL 255, PEEK(A#L),PEEKIA+3), PEEK(A#3), PEEKIA+7), 
PEEKUA+9), PEEKUA+11), PEEX(A+13), PEEK(A+15) 

2800 MOVE 152+24#1/2,46 "UTILISE 2 CARACTERES 

2810 PRINT CHRS(254)+CHR6(235)+CHRS (254); "Bag POUR FAIRE UNE 

2820 MOVE 152+26#1/2,30 °TRATE 1648 

2830 PRINT CHRS(254)+CHRS(255)+CHRS (254) ; 

2840 NEXT 

2850 ORIGIN 0,0,0,639,26, 10 

2860 FOR 1=1 TO 39 STEP 2 

2870  A=45000+1816 

2880 SYMBOL 254, PEEK (A), PEEK(A+2), PEEK(A+4) , PEEK A+), 
PEEKUA+8), PEEX(A+10), PEEK +12), PEEKA #14) 

2890  SYMBOL 235, PEEK(A+1), PEEK(A+3), PEEK(A#5), PEEX(A47), 
PEEK(A49), PEE(A+11), PEEK(A+13), PEEK(A+15) 

2900 MOVE 152+24#INT{1/2), 24 

2910 PRINT CHRS(254)4CHRS(255)+CHRS (254) ; 

2920 MOVE 152+24#INT(1/2), 10 

2930 PRINT CHRS(254)#CHRS(235)4CHR8( 254); 

2940 NEXT 

2950 PRINT. CHRS(23)4CHR$ (0) : TAGOFF 

2960 ? 

2970 dr name cseerees ce mamemammmnpeme cree mere ee cepe es css eee me mess 

2980 SAUVEGARDE DE L'INAGE REALISEE 

2990 — 

3000 L 

3010 SAVE"SCR", B,&CO00, 44000 


"DESSIN DU CADRE 
"DESSIN DU QUADRILLAGE 


"DESSIN DU PETIT CADRE 
"HODE GRAPHIQUE *OR' 
"RANGEE DU HAUT 


TRANGEE DU BAS 


*IMAGE DE CO00 À FFFF 
BOUCLE POUR NE PAS 
'ABIMER L'MAGE 


SOUS-PROGRAMME DE.TRACE DE CADRES 


3080 "PARAMETRES: H£ : HAUT 

3090 ’ B4 : BAS 

3100 ? 6% + GAUCHE 

310" DX : DROITE 

3120" 

3130 FOR K4=6% TO DZ 

3140 MOVE KX,B4:DRAN KL,H,0 

3150 NEXT 

3160 ? 

3170 MOVE GL,BL:DRAN G%,H4, 1:DRAW DZ,H2, 1 

3180 DRAN DX,BX, 1:DRAW GL, BL, 1:MOVE 6742, B1-2 

3190 DRAW D2+1,B2-2, L:DRAH DX+1,HL-2,1:MOVE DX+2, 1-2 
3200 DRAH D1+2,H4-4,1:MOVE D1+3,B4-2:DRA4 DL+3,H4-6, 1 
3210 MOVE 62-1,B4:DRAN GX-1,H4 

3220’ 

3230 RETURN 


"REMPLIT LE CADRE 
*DE BLANC 


*CADRE EN NOIR 


MORPRIONS 


C°: programme est un grand 
classique des jeux de straté- 
gie où vous jouez contre l’ordina- 
teur sur une grille de 10 x 10. 


Le premier qui réussit à aligner 
cinq de ses pions en horizontal, 
vertical ou diagonale a gagné. Un 
chronomètre indique la durée de 
la partie qui est limitée à une 
heure. 

Tapez ce logiciel qui allie une très 
belle présentation à un niveau de 
jeu surprenant par sa force et sa 


Daniel DEPINOY 


rapidité pour un programme écrit 
en Basic ! 

Entrez, dans un premier temps, le 
programme de chargement 
appelé Loader et sauvez-le sous 
le nom Morpion. Puis, entrez le 
programme de jeu que vous sau- 
verez avec le nom Morpion 1, 
juste après le programme Mor- 
pion. Lors de son exécution, le 
programme Morpion affichera 
une belle page titre et chargera 
automatiquement Morpion 1. 
Bon amusement. 


LES LOGICIELS PROFESSIONNELS DE 


pm informatique 


POUR VOTRE CPC 464, 664, 
6128 ET LE PCW 8256 
Réf PM 83A FICH ET CALC 
Gestion de fichiers - Vous créez vos fichiers et vous les 
exploitez - Classement par code - Séquentiel intégré - 
Éditions sélectives (Clients, stocks, paie, tarifs, inventaire, 


étiquettes, adresses - de prix). 
TTC 950 francs 
Réf PM 84A COURRIER TEXTE 


Traitement de courrier - 
lignes. 


E 


4 


:2)CHnR$il) 
23 PRINT" PROGRAM 


2Z)CHR$(0) 


OG:NEXT TEMPO 
* 


a 


1 T0 1OO:NEXT:NEXT 


:,0 
370 LOCATE 17,15:PRINT CHR3S(164):" 1985" 
12,2 


{ TG 
E 


1 TO 19:LOCATE 11+%,11:SOUND 1 


0 TO 531 STEP 30 


ler sept 1985 
HÉRÉRARÉRLNESÉRÉÉEREÉ 


60 MODE 1:BORDER 0 


70 


:LOCATI 


7. 
&s 
O0 


390 LOCATE 1,1:PRINT CHR$( 


400 RUN "morpioni" 


# JEU DU MORPION +* 


ARR ERREURS 


La 


Stockage de 20 textes de 200 


0 


Û 


, 1000, 10,5:PRINT MID$(*par Depinou Danie 


350 INK 3,5:PEN J:PRINT CHR£( 


3:0 LOCATE 10,25:PRINT* 
J60 FOR x 


270 ORIGIN 30,30 
300 DRAHR 570,0, 1 
310 NEXT 

l',x,1):F0R tempo 
80 ? PRESENTATION 


280 FOR x 
40 FOR TEMPO 


330 INK 1,6:INK 
34 


90 MOVE 0, : 


À 


80 PEN 


40 ? 


TTC 420 francs 
Réf PM 85A FICH ET CALC + COURRIER - TEXTE intégré 


Permet l'édition de courriers aux destinataires sélectionnés 
dans les fichiers avec appel possible de renseignements 


contenus dans les fichiers. 
TTC 1 200 francs 


Réf PM 25A COMPTA PM 
10 journaux, 5000 comptes 
2000 écritures avec | disquette 
Remise à zéro en cours d'année possible avec reprise des 
cumuls. 


Réf PM 43A DEVIS FAC 
Fichier articles avec prix de vente. Rédaction et édition des 
devis et des factures. Livre de ventes. 


J 
2 
pu 


du 
chars#8:xz( 
1 709 
=c:NEXT 


2 THEN PLOT x,y,2:PLO 


T x,y-2:PLOT x+2,y:PLOT x+2,y-2 


384:y 


TIC 1 450 francs 


2= 


10 LOCATE 1,2:PRINT SPC(10); 


220 ORIGIN 0,30 


384 


140 LOCATE 1,2:PEN 2:PRINT titleé: 


150 PEN 3 


300: 
0 TO 2:INK encre, 24:NEXT:I 


Z:y 


01.09.1985 


TO OA EEE 


80 PRINT CHR$(23)CHR$ (0) 


TTC 1 050 francs 


Disquettes de démonstration + documentation = 365 francs dont 280 
francs déductibles lors de l'achat de la version complète. 
Envoyez votre adresse avec le chèque en précisant : 
- La référence PM 
- La version (démonstration ou complète) 
- Le type de votre CPC (664 ou 6128). 
à retourner à microtex 
22, place de la république - 59170 CROIX 
tél. 20.98.66.86 


y2-2 
x+4:x2=x2+ 


par DEPINOY Daniel 


1 TG pixels:FOR f 


ILARD CRÉATIONS 99.31.6473 
LEN(title$):pixels 


y-4:u2 


= 
00 NEXT:x 
30 FOR x= 30 TO 617 STEP 30 


160 LOCATE 10,25:PRINT'"Patience ... 
240 MOVE x,0 


INT EZCZS IIS ITTIS III TLS STE SET STI) 
20 * ### LOADER LU JEU LE MURPIONS 


30 ? ##+ 


110 MODE 1:PAPER O:CLS:BORDER 24 


90 title$="Morpions':u 
120 c 


40 * ##+ 

100 FOR encre 

130 chars 
639-chars#32)/2:x2=0:u2 
170 FOR q 

180 IF TEST(x2,y2) 

190 y 

2 


28 


250 DRAWR 0,331, 


100 CLS:SYMBOL AFTER 128:INK 0,26:INK 1 
D:INK 2,24:INK 3,6:PAPER D:PEN 1 

110 SYMBOL 129,255,128, 128,128, 128,128, 1 
28,128:SYMBOL 130,255,1,1,1,1,1,1,1:SYM8 
OL 131,128,128,128,128,123, 128, 128,255:S 
YMBOL 132,1,1,1,1,1,1,1,255:SYMPOL 133,0 
,0,63,63,63,63,63,63:5YMBOL 134,0,0,252, 
252,252,252,252,252:SYMB0L 135,63,63, 31, 
15,7,3,1 

120 SYMBOL 136,252,252, 248,240, 224,192, 1 
28:5YMBOL 137,0,0,63,32,32,32,32,32:SYMP 
OL 138,0,0,252,4,4,4,4,4:SYMROL 139,32,3 
2,16,8,4,2,1,0:SYMBOL 140,4,4,8,16,32,64 
«128,0 

130 a$=CHR$(129)+CHR$ (130) :b$=CHR$ (131 )+ 
CHR$(132) 

140 LOCATE 5,12:PRINT'YOULEZ-VOUS LES RE 
GLES. ?° 

150 IF INKEY(J4):0 THeïi 1000 

160 IF INKEY(46)=0 THEN CLS:G0TG 180 

170 G6OTO 150 

180 FOR x=3 TO 21 STEP 2:LOCATE x+1,2:PR 
INT y:Y=Y+1:NEXT 

190 FOR x=4 TO 22 STEP 2 

200 LOCATE 1,x:PRINT x1#10:X1=X1+1 

210 FOR y=3 TO 21 STEP 2 

220 LOCATE y+2,x:PRINT a$:LOCATE y+2,x+1 
PRINT b$ 

230 NEXT y 

240 NEXT x 

250 WINDOW #1,26,40,9,25:PAPER H1,2:CLSH 
L:WINDOWK2, 26, 40, 4,7:PAPERK2,3:CL5H2 

260 LOCATE 26,2:PRINT'JEU DU MARPION" 
270 LOCATE#2,5,1:PRINT#2, "TEMPS :° 

260 LOCATE#2,11,3:PRINT4Z, "5." 

290 LOCATE#2,5,3:PRINT#2, °m.* 

300 EVERY 50,1 GOSUB 1510 

310 

320 ? NOTATION 

330 L 

340 DIM j1(99),j2(99),k(21) 

350 FOR x=0 TO 21:k(x)=O:NEXT 

360 FOR x=0 TO 4:READ k(x) :NEXT 

370 DATA .01,.03,.5,10, 10000 

380 FOR x=5 TO 20 STEP 5:READ k(x):NEXT 
390 DATA .1,2, 100, 1000000 

400 B$(0)=" ":B$(1)-CHR$(133)+CHR$(134) 
:B$(5)=CHR$(137)+CHR$ (138) : R=0 

410 C$(0)=" ":C$(1)=CHR#(135)+CHR$ (136) 
:C$(5)=CHR$(139)+CHR#( 140) 

420 ? 

430 ?NISE À ZERO DES VARIABLES 


440" 

450 FOR x=0 TO 99: j1(x)=0: j2(x)=D:NEXT:c 
oup=0: dr apeau=0 

460 GOSUB 630 


470 * 


480 ? FIN DE LA PARTIE 

490 

500 PAPER O:PEN 1:PRINT CHR$(24) ; CHR$ (22 
)CHR$(0) ; :LOCATE 7,25:PRINT'FAIRE < ESPA 
CE »*;CHR$ (24) : CHRONO=REMAIN( 1) 

510 IF INKEY(47)(0 THEN 510 

520 MODE O:INK 0,0:INK 1,6:PAPER O:PEN 1 
:CLS:RORDER 0 

530 LOCATE 5,12:PRINT*UNE AUTRE" :LOCATE 
10,15:PRINT""; 

540 INK 2,24,26:PEN 2 

550 IF drapeau=1 THEN PRINT'DEFAITE ?* 
560 IF drapeau=2 OR drapeau=D THEN PRINT 
"PARTIE ?* 

570 IF drapeau=-1 THEN PRINT'VICTOIRE 7" 
580 IF INKEY(34)=0 THEN RUN 

590 IF INKEY(46)=0 THEN MODE 2:INK O,0:1 
NK 1,26:PAPER O:PEN 1:CLS:END 

600 G0TO 580 

610 END 

620 

630 * DEROULEMENT DU JEU 

640 

650 LOCATE 41,1,5:PEN#1,1:PRINT#1, *VOULE 
Z-VOUS" :PRINT#I:PRINT#1," COMMENCER 7° 
:GOSUB 1450 

660 CLS#1:1F R$="0* THEN GOSUR 1380:60T0 
690 

670 GOSUB 850 

680 IF drapeau<>0 THEN 720 

690 GOSUR 1190 

700 IF drapeau=D THEN 670 

710 ” 

720 * LA PARTIE EST FINIE 

730 

740 CLS #1 

750 IF drapeau=1 THEN LOCATE#1,2,5:PRINT 
#1," J'AI GAGNE ":PORDER 14,16 

760 IF drapeau=-1 THEN LOCATE#1,2,5:PRIN 
T#1," VOUS GAGNEZ" | 

770 IF drapeau=2 THEN LOCATE#1,2,5:PRINT 
#1," MATCH NUL* 

780 LOCATE#1,6,B:PRINT#1, "en" :LOCATE#1, 2 
11:PRINT#], coup;" COUPS" 

790 IF  drapeau={ THEN GOSUR 1010 

800 IF drapeau=-1 THEN GOSUR 1790 


810 IF drapeau=2 THEN GOSUB 1750 


820 RETURN 

830 END 

840 ? 

850 * LE PROGRAMME JOUE 

860 Lu 

870 FOR x=0 TO 99:j2(x)=0:NEXT 

880 CLS#1:LOCATE #1,2,3:PRINT#1, "JE JOUE 
EN :° 

890 e=1:d=0:c=5:b-0:a=90:G0SUB 1080 

900 e=9:d=4:c=9:b=0:a=50:GOSUB 1080 

910 e=10:d-0:c=9:b=0:a=50:G0SUB 1080 

920 e=11:d=0:c=5:b=0:a=50:GOSUB 1080 
930 score=-1 

940 nbc=0 

950 FOR x=0 TO 99 

960 IF j1(x)©0 OR j2(x)<score THEN 950 
970 RANDOMIZE TIME 

980 1F j2(x)>score THEN e=x:scorez j2(e): 
nbc=1 ELSE nbc=nbc+i:1F nbc#(RND(1)#(r-0 

+1))<1 THEN e=x 

990 NEXT 

1000 LOCATE #1,6,5:PRINT#I,e 

1010 SOUND 1,1000,10,5 

1020 j1(e)=5 

1030 GOSUR 1380 

1040 coup=coup+i 

1050 IF coup=100 OR (score=ü AND coup>1) 
THEN drapeau=2 

1060 IF score>=k(20) THEN drapeau=1 

1070 RETURN 

1080 e1=4te 

1090 FOR x=d T0 c 

1100 FOR y=b TO a STEP 10 

1110 j1=x+y: j2= jitel:f1ag=0 

1120 FOR com=ji TO j2 STEP e:flag=flag+; 
1 (com) :NEXT 

1130 nbc=k(flag) 


1140 IF nbc<>0 THEN FOR com=j1 TO j2 STE 


P e:j2(com)=j2{com)+nbc:NEXT 
1150 NEXT 

1160 NEXT 

1170 RETURN 

1180 
1190 ? 
1200 ? 
1210 LOCATE #1,2,8:PEN#1, 1: PRINT#1, "VOTR 
E COUP 7° 

1220 LOCATE #1,7,10:PRINT#1,°""; 

1230 SGUND 1,2000, 15,5 

1240 FOR gg=1 T0 10:tampon$=INKEY$:NEXT 


L'ADVERSAIRE JOUE 


1250 QUESTS=INKEYS:1F QUEST$="*" THEN 125 

0 

1260 SOUND 1,1000,10,5 

1270 IF QUEST$<="9" THEN PRINT#1, quest$; 

:G0T0 1290 

1280 IF QUEST$="C" OR QUEST$="c" THEN qu 

est$="":q1$="":LOCATE #1,6,10:PRINT#1,* 
*3:G0T0 1220:ELSE quest$="":G0TO 1220 

1290 Q1$=Q1$+QUESTS:IF LEN(Q1$)=2 THEN j 

I=VAL(Q1$):Q1$="":60T0 1300 ELSE 1250 

1300 

1310 IF j1(j1)C0 THEN PRINT#1,CHR$(24): 

LÔCATE#I,1,12:PRINT#I,SPACES$(15);* CAS 

E DEJA OCCUPEE  *:SPACES(15);:F0 

R TEMPQ=1 TO 2000:NEXT TEMPO:PRINT#1,CHR 

$(24):LOCATE#1,1,12:PRINT#1,SPACES$ (60); : 

LOCATE #1,6,10:PRINT#1," *:GO0TO 1210 

1320 j1(j1)=1 

1330 G0SUB 1380 

1340 coup=coup+1 

1350 IF coup=100 THEN drapeau=2 

1360 IF j2(j1)>=k(4) THEN drapeau=-1 

1470 RETURN 

1380 PRINT CHR$(2Z)CHR$(1) 

1390 PEN 3 

1400 LOCATE 1,4 

1410 FOR x=0 TO 9:PRINT" 1. 

1420 FOR y=0 TO 9:1F carry=0 THEN PRINT 

B$(j1(10#x+y)); ELSE PRINT C$(j1(10#x+y) 

); 

1430 NEXT :PRINT:PRINT:NEXT :carry=carry 

+1:1F carry<2 THEN LOCATE 1,5:G0T0 1410 

ELSE carry=0:PEN 1:RETURN 

1440 END 

1450 IF INKEY(34)=0 THEN R$="0":RETURN 

1460 IF INKEY(46}=G THEN R$="N" :RETURN 

1470 GOTO 1450 

1480 ? 

1490 * CHRONOMETRE 

1500 ? 

1510 SEC=SEC+1:LOCATE#2,8,3:IF SEC>59 TH 

EN SEC=0:MINUTE=MINUTE +1 

1520 PRINT#2,USING "##":SEC 

1530 LOCATE#2,2,3:PRINT#2, USING “##":;MIN 

UTE 

1540 IF MINUTE=59 AND SEC>=59 THEN 1560 

1550 RETURN 

1560 CLS#1:LOCATE#1,2,5:PRINT#1," ON NE 

FINIRA DONC JAMAIS CETTE PARTIE 71": 

LOCATE#1,3,13:PRINT#1,*J'ABANDONNE !":60 

T0 500 


1570 

1580 * " REGLE DU JEU 

1590 

1600 CLS:PRINT 

1610 FOR gg=1 TO 10:tampon$=INKEY$:NEXT 
1620 PRINT* Ce morpion est un classique 
des jeux de strategie. Vous jouez sur 
une grille de 10 X 10, contre l’ordinat 

eur.":PRINT:PRINT" Le premier qui reuss 

it à aligner 5 de ses pions, en moins d 
"une heure, gagne la partie, 

1630 :PRINT:PRINT:PRINT"  - vous 

“32PEN J:PRINT CHR$(133)CHR$(134) 


1640 PRINT* 

(135) CHR$ (136) 

1650 PEN ! 

1660 :FRINT:PRINT:PRINT"  - l’ordinate 
ur "32PEN J:PRINT CHR$(137)CHR$ (138) 
1670 PRINT" ";CHR$ 
(139) CHR$(140) 

1669 PEN 1:LOCATE 4,23:PRINT*APPUYEZ SUR 
CESPACE] PQUR JOUER" 

1690 WHILE INKEY#<)" *:WEND 

1760 Cis 

1710 GOTO 180 

1720 

1730 ‘ MUSIQUE MATCH NUL 

1740 ? 

1750 FOR x=1 TO 3:FOR n=90 TO 125 STEP 8 
:SOUND 1,n,3,15:NEXT n:NEXT x:RETURN 


1760 
1770 * MUSIQUE L'ORDINATEUR PERD 


cas tres rare 
1730 
1790 FOR n=100 TO 800 STEP 5:SOUND 1,n,2 
« 13:NEXT: RETURN 
13800 * 
1510 ? MUSIQUE L'ORDINATEUR GAGNE 
1620 ? 
1530 READ a,b 
1840 IF b=-1 THEN RETURN 
1850 SOUND 1,a,b,7 
1860 GOTO 1830 
1870 DATA 319,50,319,50,284, 100,319, 1üÿ, 
239, 100,253, 15€, 319,50, 319,50, 284, 100,31 
9,100, 213, 100, 237, 150,319,50, 319,50, 159, 
100,190, 100,229, 100,253, 100,284, 100, 179, 
50,179,59, 190, 300,299, 100,213,105, 239,15 
ü,0,-1 


2 : 
ntrez un mot de trois à six let- 
tres, et ce programme affiche 


à l'écran ou sur imprimante tou- 
tes les combinaisons de ses let- 
tres, c'est-à-dire ses anagram- 
mes. Autre possibilité : entrez 
une à une les syllabes d’un mot 
ou d'une phrase (six éléments 
maximum), et ce sont alors ces 
combinaisons que l'on appelle 
contrepèteries. 


Le nombre de combinaisons est 
égal au ‘‘factoriel'" du nombre 
d'éléments ; exemple avec qua- 
tre: 41=1xX2XxX3x3= 24. Ainsi, 
on a 21=2 ; 31=6, 41=24 ; 
51=120 ; 61=720 et 7! = 5040. 
Vous comprenez alors pourquoi 
on a limité le nombre d'éléments 
de trois à six. 

Certes, ce programme peut être 
classé ‘’utilitaire’’ pour certains 
usages rares, comme pour créer 
un nom pour une société, un pro- 
duit nouveau, un pseudonyme, 
etc., mais en toute sincérité, il a 
été conçu pour jouer, car certai- 
nes ‘‘solutions’” affichées sont 
inattendues. Exemple : demandez 
les anagrammes du mot ECRAN 
et parmi les 120 solutions, vous 
trouverez. : CARNE, CRANE, 
ANCRE, ENCRA, CERNA et 
NACRE (essayez le mot ABUSIF 
et vous aurez une surprise assez 
drôle. ). 

Lorsqu'il y a plus de six lettres, 
il faut passer en option ‘‘Contre- 
pèterie’’, où l’on entre des frag- 
ments du mot à mouliner. Peu 
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importe l'orthographe, ici seule la 
consonnance finale est intéres- 
sante. Ainsi ‘‘piraté’’ va donner 
‘’thérapie’”, alors qu'en anagram- 


mes on obtient ‘‘paître’’, 
‘’patrie’”, ‘‘partie’’ et ‘‘repait'’. 
On y passe des heures... (sou- 


vent tardives). 


LE LISTING 


Le sous-programme en 7000 est 
un titre fantaisie, avec un peu de 
son. Le programme réel com- 
mence en 1000 par le menu 
‘’anagrammes ou contrepète- 
ries'”. 


LA PARTIE ANAGRAMMES 
(lignes 1100 à 1180) 


demande le mot à traiter ; il est 
mis en majuscules et mesuré. 
Puis, on demande ‘‘affichage à 
l'écran ou sur imprimante ?''. 
Dans les deux cas, ce sera en 80 
caractères par ligne (MODE 2), 
d'où calcul de NPL=nombre par 
ligne, en laissant un espace en 
début de ligne et entre chaque 
‘’solution'”. 

Enfin, chaque caractère est indicé 
en M$(l). 


LA PARTIE CONTREPETRIE 
(lignes 1200 à 1290) 


invite à entrer élément par élé- 
ment (avec ENTER) ; ou conclue 
par une action sur ENTER. Cette 
fois, les M$(l) représentent des 
groupes de lettres (éléments). On 
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calcule la longueur totale LTOT 
en caractères, alors que L est le 
nombre d'éléments, et bien sûr 
calcul du NPL. Il n'y a pas d’op- 
tion imprimante. 


L'ECRAN 
(lignes 2000 à 2060) 


est en MODE 2 avec deux WIN- 
DOW : un bandeau supérieur de 
trois lignes (# 1) où l'on trouve les 
deux options en fin d'affichage, 
à savoir M =retour au menu prin- 
cipal et P pour passer à la page 
d'écran suivante. En haut à 
droite, le numéro de la page 
d'écran en cours. Un trait continu 
sépare les deux WINDOW. La 
partie inférieure de l'écran 
comprend vingt lignes d'affi- 
chage. 


LE TRAITEMENT 
(lignes 3000 à 3320) 


C'est bien sûr le ‘‘gros morceau’’ 
(merci Aspro.... ). C'est une suite 
de boucles FOR NEXT imbriquées 
avec des GOTO conditionnels 
aux NEXT correspondants (lignes 
3240 à 3290). A chaque ‘‘rem- 
plissage de case’’ A1, A2, A3, 
etc., on contrôle que cet élément 
n'a pas été utilisé antérieurement. 
S'il est ‘’neuf'’, on le concatène 
à la chaîne B$ en cours de cons- 
truction. Lorsque B$ a ses L élé- 
ments, on l'envoie en GOSUB 
5000 (ligne 3220) pour se faire 
afficher ; B$ est ensuite remise 
à zéro (ligne 5070) et on recom- 


mence jusqu'à la fin des combi- 
naisons possibles. 


L'ECRITURE 
(lignes 5000 à 5050) 


Les solutions B$ sont écrites à la 
suite mais comptabilisées sur une 
ligne par T, jusqu'à T = NPL oùil 
y a saut de ligne. Ligne 5030, la 
fonction VPOS arrête l'écriture 
lorsque l'écran est rempli. On est 
alors dans l'attente de frappe de 
‘M! ou Del = 

Lorsque l'ordinateur a terminé 
son travail, il le signale par un 
‘’son étrange venu d’ailleurs’’ 
(ligne 3310). 

Les 120 anagrammes d'un mot 
de cinq lettres tiennent sur une 
demi-page d'écran ; les 720 ana- 
grammes d’un mot de six lettres 
demandent trois pages et demi. 
En revanche, une contrepèterie 
de cinq éléments, mais totalisant 
quinze caractères, ira jusqu'à la 
. moitié de la page deux. 

Si en anagrammes vous avez 
opté pour l'imprimante, c'est 
beaucoup plus simple, car il n'y 
a plus de discontinuïté dans l'écri- 
ture (ligne 5060 avec flag 
IMP = 1). 


LE TITRE 
(lignes 7000 à 7900) 


Nous sommes en MODE O et 
chaque chaîne paraît bizarre 
puisqu'il s’agit d’'anagrammes. 
Puis, lettre par lettre, tout est 
remis dans l'ordre. Un autre son 
‘’étrange’” (ligne 7500) fait la 
transition avec la page menu. 


LE FINAL 
(lignes 1400 à 1420) 


Appelé par l'option ‘‘F'’ du 
menu : BORDER, PAPER et PEN 
sont remis aux valeurs habituel- 
les par défaut ; puis CLS et END. 


CONCLUSION 


On peut, bien sûr, entrer des chif- 
fres ou des signes de ponctua- 
tion, combiner anagrammes et 
contrepèteries en plusieurs pas- 
ses. Les moules au minet ! Hein 
? Heu... pardon. : Moulinez les 
mots ! 


10 ? MOULIMOT / AMSTRAD CPC 

20 * ANAGRAMMES & CONTREPETERIES , sur M 
ot de trois a six Elements. 

30 ? Michel Archambault - 9 / 1985 

100 GOSUB 7000:’TITRE 

1000 * MENU 

1010 MODE 1:BORDER 9:INK D,1:INK 1,24:PA 

PER 2:CLS:DEFINT A-Z 

1020 LOCATE 13,5:PEN 3:PRINT 'MOULI 

MOT" 

1030 PEN O:LOCATE 12,10:PRINT "A - ANAGR 

AMMES. * 

1040 LOCATE 12,12:PRINT "C - CONTREPETER 
IES,* 

1050 LOCATE 12,14:PRINT "F - FIN." 

1060 TEX$="ACF" :GOSUB 50000:0N K GOTO 11 

00, 1200, 1400 

1100 CLS:LOCATE 11,10:PRINT "{ 3 a 6 le 

ttres ) 

1105 LOCATE 6,12:PRINT "( 6,24,120,720 c 

ombinaisons )* 

1110 PEN 3:LOCATE 8,8:INPUT "VOTRE MOT : 
",M$:M$=UPPERS (M$) : PEN D 

1120 LELEN(M$): IF L<3 OR L>6 THEN PRINT 
CHR$(7);:G0T0 1100 

1130 PEN 3:LOCATE 8,17:PRINT "Sur ECRAN 

ou IMPRIMANTE ?* 

1140 TEX$="EI":GOSUR 50000: IMP=K-1:1F 1M 

P THEN PRINT #8,CHR$(27) ; CHR$(64) ; 

1150 NPL=INT(79/(L+1)) 

1160 FOR 1=1 TO L:M$(1)=MID$(M$,1,1):NEX 

T 

1180 GOTO 2000 

1200 CLS:LOCATE 12,5:PRINT "(3 a 6 Syll 

abes ) 

1210 LOCATE 6,7:PRINT "{ 6,24,120,720 co 

mbinaisons }) 

1220 PEN 3:LOCATE 2,3:PRINT "Votre MOT , 
par syllabe :"::PEN O:PRINT"(ENTER=fin) 
":1=1:LT0T=0 

1230 PEN 3:LOCATE 15,2#1+7:INPUT'",M$(1) 

1240 IF M$(1)="" AND 133 THEN I=1-1:G0T0 
1260 

1250 IF I<b THEN I=1+1:G0T0 1230 

1260 FOR J= 1 TO I:LTOT=LTOT+LEN(M$(J)): 

NEXT:L=I 

1270 NPL=INT(79/(LTOT+1)) 

1290 PEN 0:G0T0 2000 

1400 *FINAL 

1410 BORDER 1:PAPER O:PEN 1:CLS 

1420 END 

2000 ’ECRAN 

2010 MODE 2:INK 0,14:INK 1,0:BORDER 13:P 

APER O:PEN 1 

2020 WINDOW #1,1,80,1,4:CLS #1 

2030 WINDOW #0,1,80,5,25:CLS #0 

2040 LOCATE #1,26,2:PRINT #1,"M =. MENU ; 
P = Page suivante." 

2050 PG=1:LOCATE #1,70,2:PRINT #1, "PAGE 
":PG 

L 

2060 LOCATE #1,1,3:PRINT #1,STRING$ (80, " 
.) 

3000 * TRAITEMENT 

3020 R$="" 

3030 FOR Ai=1 TO L:B$=M$(A1) 


3040 FOR A2=1 TO L 

3050 1F A2=A1 THEN 3280 

3060 B$=MS (A1 )+M$ (A2) 

3070 FOR A3=1 TO L 

3080 IF A3=A1 OR A3=A2 THEN 3270 

3090 B$=MS (A1 )+M$(A2)4MS (AI) 

3100 1F L=3 THEN 3220 

3110 FOR A4=1 TO L 

3120 IF A4=A1 OR A4=A2 OR A4=A3 THEN 326 

0 

3130 BS=MS(AL)+MS(A2)4MS CAT) #8 (A4) 

3140 IF L=4 THEN 3220 

3150 FOR A5=1 TO L 

3160 IF AS=A1 OR AS=A2 OR A5=A3 OR AS=A4 
THEN 3250 

3170 B$=MS (AL )+MS(A2)4MS(AZ)#8 (A4)+MS (A 

5) 

3180 IF L=5 THEN 3220 

3190 FOR Ab=1 TO L 

3200 IF A6=A1 OR A6=A2 OR A6=A3 OR Ab=A4 
OR A6=A5 THEN 3240 

3210 B$=MS (A1 )4MS (A2)4MS (AD) +8 (A4 )4M$ (A 

5)#M$ (Ab) 

3220 GOSUB 5000 

3220 ON L-2 60TO 3270, 3260, 3250, 3240 
3240 NEXT 


| 3250 NEXT 


3260 NEXT 

3270 NEXT 

3280 NEXT 

3290 NEXT 

3300 IF IMP=1 THEN PRINT #8:PRINT #8, CHR 

527) ;CHRS(64):RUN 1000 

3310 EW 1,100,2,2:ENT 1,100, -2, 2:SOUND 
1,220,150,1,1,1 

3320 Q$="":MHILE Q$="" :Q$=UPPERS ( INKEYS) 
:MEND: IF Q$="M" THEN RUN 1000 ELSE 3320 

5000 "ECRITURE 

5010 IF IMP=1 THEN 5060 

5020 T=T+1:PRINT * ":B63:1F T=NPL THEN T 

=0:PRINT CHR$(13) 

5030 1F VPOS(#0)=21 THEN Q$="":MHILE Q$= 
** :08=UPPERS(INKEYS) :MEND: IF Q$="M" THEN 
RUN 1000 ELSE IF Q$<)*P* THEN 5030 

5040 IF VPOS(#0)=21 THEN CLS:P6=PG+1:LOC 
ATE#1,70,2:PRINT #1, "PAGE * 3PG 

5050 60TO 5070 

5080 T=T+1:PRINT 48," "3B$;:1F T=NPL THE 

N T=0:PRINT. #8, CHRS(13) 

5070 B$="": RETURN 

7000 * TITRE 

7010 MODE 0:BORDER 8 

7020 PAPER 7:PEN 2:CLS 

7030 LOCATE 3,7:PRINT ‘I MOTULMO" 
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AUOT RAD 


DU 6 AU 9 DÉCEMBRE 1985 


HOTEL-EXPO, HOLIDAY INN 
PARIS - PORTE DE VERSAILLES 


LES MATÉRIELS, LES LOGICIELS, 
LES LIVRES, LES PERIPHERIQUES 
ET SERVICES... 
L'UNIVERS AMSTRAD 


Le 1°" salon exclusivement réservé à 
l'univers AMSTRAD. 
Vous y trouverez les dernières nou- 
veautés : matériels, logiciels, péri- 
phériques et services. 


QUATRE JOURS D’EXPO À 
QUER, QUE VOUS SOYEZ 


Ouvert de 10 h 00 à 18 h 00 à 
HOTEL-EXPO Holiday Inn, 

73, Bd. Victor, 75015 PARIS. 
Porte de Versailles 


Accès : 

Bus : PC - arrêt Porte de Versailles. 
Métro : Station Porte de Versailles. 
Boulevards extérieurs et périphéri- 
ques. 

Parking : Parc des Expositions. 


NE SURTOUT PAS MAN- 
OÙ NON POSSESSEUR. 


Une promotion exemplaire | 
Affichage, presse, radios, télémati- 
que (serveurs), mailing et invitations 
feront de ce salon un véritable suc- 
cès. 


QUATRE JOURS EXCEPTIONNELS 
D'AFFAIRES, DE JEUX ET CONCOURS... 


Entrée : 

Du venäredi au lundi ; adulte : 25 F 
Enfant de moins de 14 ans : 10 F 
Ticket unique par correspondance, 
évitez l'attente : 15 F 


DE eee eee 


Exposants î 

Les développeurs sur AMSTRAD et 
les sociétés distribuant du matériel 
compatible AMSTRAD sont nos 
exposants. Si vous aussi avez créé, 
contactez-nous rapidement. 


AMSTRAD EXPO (APC, 109 rue Gaston Lauriau, 93100 MONTREUIL, Tél.: 48.59.71.01) 


Veuillez me faire parvenir ...... tickets uniques au prix de 15 francs chaque. 

Je joins un chèque de ...... K'15 Fe sr F à l’ordre de DAD. 

NOM: rate nee mes dant 2e de Prénom ist nt morue 
Adresse. ...13%6ssummen bre 
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7040 PEN S:LOCATE 9,12:PRINT "par" 

7050 PEN 1:LOCATE 2,14:PRINT "Chimel Cha 

multarba" 

7060 PEN 12:LOCATE 8,17:PRINT "1589" 

7070 FOR 1=1 TO 20:S0UND 1,0,20,15:NEXT 

7080 PEN 5:LOCATE 2,23:PRINT "Ho!.. excu 

sei-moi... 

7090 FOR 1=1 TO 1000:NEXT 

7100 X$="M O UL I MO T':Y$="Michel Arc 

bambault":2$="1985" 

7110 PEN 1:FCR I1=1 TO LEN(X$):LOCATE 2+] 

1: T:PRINT MID$(X$,1,1):FOR J=1 TO 200:NEX 

T:NEXT 

7120 PEN 2:FOR I=1 TO LEN(Y#):LOCATE 1+1 

«14: PRINT MID$(Y$,1,1):FOR J=1 TO 2O0:NE 

XT:NEXT 

7190 PEN 4:FOR I=1 TO LEN(Z$):LOCATE 7+ 

1,17:PRINT MID$(2$,1,1):FOR J=1 TO 2O0D:N 

EXT:NEXT 

7140 PRINT CHR$(20):FOR I=1 TO {OOO:NEXT 

7500 ENT 1,100,-:,2:S0UND 1,284,200,13,0 
1 

, 

7600 FOR 1=1 TO ZO0O:MEXT 

7900 RETURN 

50000 "REPONSE A UN MENU 

50010 LT=LEN(TEX$) :R$="" 

50020 LOCATE 15-LT,24:PRINT "Reponse ("; 

52030 FOR I=1 TO LT-1 

50040 PRINT MID$(TEX$,1,1)3","3:NEXT 

50950 PRINT RIGHT$(TEXS,1);")";CHR$(154) 
; CHR$(243) ; CHR$(207) 

50060 TEX$=UPPERS(TEX$) 

50070 HHILE R$="" :R$=INKEYS :WEND 

50080 R$=UPPERS(R$) :K=INSTRITEXS, R$) 

50090 1F K=Q THEN R$="":PRINT CHR$(7)5:G 

OTO 50070 

50100 RETURN 

65535 *----- FIN DE LISTING 


MICRO- 
ORDINATEUR 82 


LE SPECIALISTE AMSTRAD 
A MONTAUBAN 


ORDINATEURS CPC 
464, 664, 6128 et PCW 8256 


Nombreux logiciels et 
périphériques 


39, rue de la Comédie 
(près du Théâtre) 
82000 MONTAUBAN 
Tél.: 63.66.27.22 


KILOBYTE 


Imaginez que votre AMSTRAD 
vient de tomber en panne : il ne 
lui reste plus qu’un petit kilo-octet 
de mémoire. Saurez-vous écrire 
-des programmes originaux per- 


formants qui ne tiennent que 
dans ce kilo-octet ? Attention ! 
vos programmes devront être 
écrits en Basic, mais les routines 
en code machine présentées sous 
forme de data sont acceptées. 


Les fainéants ont bien travaillé ce 
mois-ci. Nous avons sélectionné 
deux programmes qui rapportent 
à leurs auteurs un superbe livre 
d'aventure. Rémi LAPORTE a 
décidé d'arrêté de se shooter 
depuis qu'il a écrit Délirium sur 
son AMSTRAD. Ça fait le même 
effet, et surtout, ça coûte moins 
cher. Voici réunis les 708 octets 
les plus dangereux de l’année... 
David WELCHE, quant à lui, pro- 
pose un programme passionnant 
qui vous permettra d'acquérir en 
jouant une dextérité phénomé- 
nale au clavier. Vous voyez que 
l'on peut en loger de belles cho- 
ses dans un kilo-octet. 


DELIRIUM 

2 REM -- Disque d'Infinie Repetition -- 
3 REM R.LAPORTE - 28/9/85 

10 MODE 1 

20 ORIGIN 320,180:DEG:FOR L=0 TO 15 

30 FOR azi TO 1500 

40 x=81 

50 u=250 

60 INK 2,0,2b:PEN 2:LOCATE 17,2:PRINT'DE 
LIRIUM" 

70 ENV 1,17#RND(a),1,29#RND(a):ENT 1,19% 
RND(a),-2,27#RND (a): SOUND 1,0,5,15,0,0,1 
S#RND(a) 

80 INK 0,26,0:BORDER 26,0:INK 1, 30#RND(a 
),26:PEN 1:SPEED INK O.5,0.5 

90 DRAH y#COS(S5O0#RND(b) ), x#SIN(SO0#RND( 
b)):2=2+5 

100 1F 25000 THEN GOTO 130 

110 NEXT a 

120 NEXT b 

130 SOUND 129, 1600,-32000, 14,0, 0,0 :SOUND 
130,1620,-32000, 14,0,0,0:FO0R a=1 T0 360 
:0RIGIN 320,180:INK 1,0,26:PEN 5:DRAW 25 
D#C0S(a),B0XSIN(a):NEXT a 

140 RUN 

150 REM -— Cest FINI: 708 octets ! --- 


Faites-nous parvenir vos pro- 


.grammes sur cassette, accompa- 


gnés d’une brève explication. Les 
cassettes vous seront retournées 
si vous le demandez. 

Alors, tous à vos claviers. Il faut 
réussir à loger le maximum d'in- 
telligence dans un kilo-octet. Les 
meilleurs programmes seront mis 
à l'honneur dans CPC et leurs 
auteurs récompensés. 


10 MODE D:PAPER B:BORDER 22:r=100:1=0 
20 EVERY 300,0 GOSUB 370 

30 CLS:PEN b:LOCATE 4,2: PRINT" Temps util 
1se* 

40 PEN 7:LOCATE 6,7:PRINT* Temps moyen" 
50 PEN 9:LOCATE 3,13:PRINT'Lettres a tap 
er" 

60 PEN 10:LOCATE 3,18:PRINT"Lettres {ape 
es" 

70 FOR n=1 TO 10:FOR m=1 TO 1OOU:NEXT 

80 t$="":a$="":RANDOMIZE TIME 

90 HHILE LEN(t$)<5 

100 p$=CHR$(INT(RND#26) +65) 

110 t$=t$+p$ 

120 WEND 

130 PEN 13:LOCATE B,15:PRINT t$ 

140 LOCATE 8,20:PEN 10:PRINT"-----" 

150 a=TIME 

160 WHILE LEN(a$)<5 

170 s$=UPPER$(INKEY$) 

180 IF 5$CMID$(t$,LEN(a$)+1,1) THEN 170 
190 a$=a$+s$ 

200 PEN LEN(a$) :LOCATE 7+LEN(a$),20:PRIN 
Ts$ 

210 WEND 

220 PRINT CHR$(7) 

230 b=TIME 

240 t(n)=(b/300)-(a/300) 

250 PEN 11:LOCATE 5,4:PRINT USING *##.## 
#itn);: PRINT" 5." 

260 t=0 

270 FOR j=1 TO n 

280 t=t+t(j) 

290 NEXT 

300 PEN 12:LOCATE 10,9:PRINT USING "##.# 
##";t/n;:PRINT" 5." 

J10 NEXT 

320 IF tr THEN rat 

330 PEN 4:LOCATE 3,23:PRINT' RECORD" :PEN 
15:LOCATE 10,23:PRINT USING "#h.#H#";r/1 
O;:PRINT" 5.*:FOR m=1 TO 250:NEXT 

340 PRINT:PEN 6:INPUT"ENCORE" ;2$ 

350 1F LEFT$(2$,1)="0" THEN 30 

J60 END 

370 BORDER 1:1=1+1:1F 1=27 THEN 1=0 

380 RETURN 


TELEPHONE 


Une ligne téléphonique est à 
votre disposition, vous mettant 
en contact direct avec la rédac- 
tion. Ceci est un service sans 
égal ! Respectez simplement les 
horaires et les jours que nous 
vous indiquons : 

MERCREDI de 9 h à 12h et de 
14hà17h. 

VENDREDI de 9 h à 12 h seule- 
ment. 

Tout appel en dehors de ces cré- 
neaux sera refoulé : ne dépensez 
pas inutilement votre argent | 
Le numéro : 99.52.98.11. 


INFORMATIQUE 


Micro-ordinateurs 
Accessoires 
Nombreux logiciels 


4 MAGASINS EN NORMANDIE 


22, Place du Général de Gaulle 
76600 LE HAVRE 
Tél.: 35.43.51.54 


39/41 Rue de l’Oratoire 

14000 CAEN 

Tél.: 31.85.18.77 

31, Boulevard de la Marne 

76000 ROUEN 

Tél.: 35.07.6060 

11, rue du Perré 

61220 VIMOUTIERS 
Tél.: 33.39.16.65 
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Transformez votre 464 en 664+! 
CARTE MÈRE - EXTENSION EPROM de Super Power 


La carte mère s’installe entre l'ordinateur et l'interface disquette (si celle-ci 
est utilisée). Elle peut accueillir jusqu'à 7 EPROMs (mémoire morte pro- 
grammable) de 8 ou 16K chacune. 

Les programmes en EPROM sont instantanément disponibles sur simple 
commande au clavier. La carte mère de construction robuste est d'utili- 
sation simple. Elle est accompagnée d'une notice en français. 


Programmes déjà disponibles en EPROM 


RS UTILITAIRE GESTION DE DISQUETTE SUPER POWER ESS 


Ce programme permet l'inspection et la modification des informations 

contenues sur 1 disquette. Un utilitaire essentiel pour récupérer les don- 

nées contenues dans une disquette défaillante. Chaque secteur peut 

être lu et réécrit, toutes les données peuvent être affichées ou impri- 

mées. 

Le programme contient ausi un certain nombre de fonction utiles aux 

programmeurs en langage machine. 

Description : 

- Affichage du contenu du «directory» - édition possible 

- Lecture et écriture d'un secteur de disque - édition possible 

- Lecture des mémoires, possibilité d'édition, de copie et d'impression. 

- Désassemblage code entre adresse donnée, donnant adresse, code 
objet, mnémoniques, ASC II. 


- Recherche dans les secteurs fichiers, une chaîne (string) ou une série de 
codes HEX. 


- Formatage, duplication de disque sans CP/M. 
- Conversion HEX-BIN-DECIMAL. 

- Choix de mode d'affichage. 

- Etc. 


BOITE A OUTILS DE PROGRAMMATION SN 
+ BASIC ETENDU SUPER POWER 
Commandes directes 
Character: création de caractère utilisateur (affiche la ligne DATA) 


Compact : comprime un programme Basic 

Editor : Editeur à trois fenêtres 

Find/replace : cherche et remplace un caractère ou une chaîne 

Medit : HEX éditeur et ASC II 

Picture : aide à la création des UDG 

Soundlab : éditeur d'enveloppe 

Xref : donne toutes les références d'une ligne (GOTO, 
GOSUB... 

Commandes imprimante 

Cdump : copie haute-résolution 

Echo on: sortie directe sur imprimante 

Echo off : LTRON - sortie TRACE sur imprimante 


Commandes graphiques 


Circle, Fill, Frame, Gcol, Graphic paper, Graphic pen, Mask, 
Turtle. 


Commandes d'écran 


Copychr : caractère double hauteur ou souligné 
Page-on : défilement vertical 

Page-off : passage d'un écran à l'autre 

Commandes fichiers 

Baud : choix de vitesse jusqu'à 4000 Baud 

Info : donne adresse, longueur, adresse d'exécution 
Unprotect: charge un fichier «P» 

etc... 


SEMAPHORE LOGICIELS 

c.p. 32 - CH-1283 La Plaine (Suisse) Tél. 022/54 11 95 
Distribution & Services 

Avenue du Québec B.P. 209 91944 Les Ulis cedex 

Tél. 6/446 27 80 


MAIL-MERG 


Le traitement de texte des Amstrad avec 
adressage incorporé. 

Fichier de travail porté à 22K sur 
464/664 et 64K sur le 6128. 

Echange de données avec MASTERFILE 
(fichier) et MASTERCALC (tableur). 
Conversion de vos programmes TAS- 
WORD/AMSWORD 464 possible. (Ecri- 
vez-nous). 

TASWORD, TASPRINT, TASCOPY, SEMEXT 
MF, SEMEXT MC, Les outils sérieux de 
gestion de texte et données de chez 
SEMAPHORE ! 

Demandez notre documentation. 


Prix de lancement : 


FS FF 

Carte mère 145 548 
EPROM utilitaire disquette 145 548 
EPROM boîte à outils 145 548 
Carte mère + 2 EPROM 400 1520 
Echecs disque 65 235 

cassette 56 185 
Tasword 90 345 


Licence SUPER POWER de MICROPOWER 
Distribué en exclusivité par SÉMAPHORE 


2'D 
ECHECS & 
VOCAL 


modes O - 1 - 2 - Moniteur vert ou couleur 
- boîtier s'intégrant aux Amstrads - compa- 
tible tous Amstrad, lecteurs de disquettes, 
synthétiseur. - boîtes - cercles - lignes - 
aérographe 

gomme - élastique - fill et unfill - 6 sortes et 
largeurs de trait - accès à toutes les couleurs 
- etc. etc... 

Crayon + logiciel graphique 

Aussi 


Tascopy pour sortir vos chefs d'œuvres sur imprimante 
Semdraw 2. L'utilitaire DAD + dessin technique disquette 


OFFRES 
Crayon optique + logiciel + tascopy 


Crayon optique + logiciel + Semdraw 2 et dessin technique 


SEMAPHORE présente : «DART» crayon 
optique pour Amstrad rapide et précis 
au pixel près ! Le crayon optique qui permet 
de travailler à main levée, directement sur 
l'écran et à vitesse d'écriture normale ! 


Utilise la technologie des fibres optiques 
polymères. 320 x 200 - 64000 pixels - 


132fs475ff m 


49#s170ff nm 
70fs 250 5 


160fs610ff m 
180fs650ff = 


Je commande les articles ci-dessus et vous envoie la somme de 5 fsou 16 ff 


pour les frais d'envoi. 


Sigratvre SN 


Nom et Prénom SE 


EE 
| 


Commande téléphonique au é/446 27 80 


Distribution et services : Avenue du Québec - B.P. 209 - 91944 Les Ulis Cédex (France. 


Sémaphore logiciels : C.P. 32 - CH-1283 La Plaine Suisse Tel. 022/54 11 95 


JEU 


DESCRIPTION 
DU PROGRAMME 


Règles du jeu : l'écran est divisé 
en cases, ou cellules ; chaque 


Conservez vos cassettes 
en les protégeant. 


NOM . 


Prénom 
Adresse 


Code: Postal 
Ville .. 


Ci-joint, 


Le Grand Logis — 10, Avenue du 
Général de Gaulle — 35170 BRUZ 


chèque bancaire ou postal de FE: 


SORACOM 


00000007 000000000000000000000000000000000000000000000000 


JE 


case a 8 voisines. 

La vie apparaît dans une cellule 
ayant 3 (exactement) voisines 
vivantes ; une cellule survit si elle 
a 2 ou 3 voisines vivantes. Une 
cellule meurt si elle a moins de 2 


ou plus de 3 voisines vivantes. 


Le programme autorise jusqu'à 
24 lignes de 78 colonnes. 

Pour les limites de l'écran, on a 
le choix entre deux options : soit 
il n'y a pas de lien entre la pre- 
mière et la dernière ligne, et entre 
la première et la dernière colonne, 
soit la première ligne est considé- 
rée comme voisine de la dernière 
et de même la première colonne 
est rendue voisine de la dernière. 
On obtient une bonne compré- 
hension de ce deuxième cas en 
imaginant que le jeu se déroule, 
non pas sur un plan, mais sur un 
tore fermé (chambre à air de bicy- 
clette). 

La partie Basic fait appel à deux 
routines en code objet : 

— la routine &3200 met toutes 


les cellules à l’état mort et affi- 
che la grille initiale ; 

— la routine &3000 réalise les 
fonctions suivantes : 

Calcul de l’état futur d’une cellule 
à partir de l’état actuel de ses 8 
voisines. Le calcul teste le bit O, 
le résultat (1 = vie, O0 = mort) est 
stocké dans le bit 7 de l'octet 
associé à une cellule. 
Actualisation : après avoir ter- 
miné les calculs, il faut que l’état 
actuel soit remis à jour. Pour cela, 
le bit 7 (état futur) est recopié 
dans le bit O (état actuel). 
Affichage :. pour gagner du 
temps, on n'affiche pas de point 
à l'emplacement des cellules 
mortes, car l'affichage prend plus 
de temps que les calculs. 
Bords : si on a choisi l'option pre- 
mière et dernière lignes (colon- 
nes) voisines, la routine bord 
introduit des lignes (colonnes) fic- 
tives ; ainsi, si on a 36 lignes, on 
ajoute une ligne O et une ligne 
37 ; O est la copie de la ligne 36, 
et 37 la copie de la ligne 1. 


OCCUPATION MEMOIRE 


Les routines se trouvent de 
&3000 à &3236. L'état des cel- 
lules est stocké de &4101 à 
&5940 (pour 24 lignes et 64 
colonnes). La première ligne 
(avec 64 colonnes) occupe les 
octets de &4101 à &4140. 


Pour conclure, signalons une 
structure intéressante : le ‘’pla- 
neur’’. Pour des compléments sur 
le jeu de la vie, voir ‘POUR LA 
SCIENCE"’, août 1985. 


Planeur 


10 REM JEU DE LA VIE 

20 REM PARTIE BASIC - 5 GAZAIX 1985 
J0 REM 
40 REM 


50 KEY DEF 50,0,872,852,150:KEY DEF 62,0 


863, &43, 151 


60 KEY 150,"RUN 90"+CHR$(13):KEY 151,"co 


nt"+CHR$(13) 
70 MEMORY &29F0 


80 CLS 

90 INPUT "surface fermee ? o/n * ,0$ 
100 ‘chargement code objet 

110 PRINT® CHARGEMENT DU CODE OBJET : AT 
TENDEZ ":PRINT:PRINT 

120 LOAD "vieobjet" 

130 INPUT "NOMBRE DE COLONNES7",N 

140 INPUT "NOMBRE DE LIGNES ?° ,NL 

150 INPUT “duree d’une generation ,en 5 
MT 

160 IF o$="n" THEN POKE ne POKE &30 
23,0:POKE &3024,0 

170 DATA &3010, 83049, &3OA5, &321F 

180 FOR I=1 TO 4:READ V:POKE V,N:NEXT 
190 POKE &3ODB,N+2:POKE &J0E6, N+2 

200 POKE &320C,N+2 

210 RESTORE 220 

220 DATA &300B,&3046, &3S0AD, &30B9, &30C7,& 
321B 

230 FOR 1=1 TO 6:READ V:POKE V,NL:NEXT 


240 POKE 83209, NL+2 
250 POKE &30BE,n:POKE &30C9,n+1:POKE &30 
D6,&44nl:POKE &JDE4, &404n] 

260 IF n<=40 THEN MODE 1 ELSE MODE 2 
270 PORDER 12 

280 WINDOW #3,1,n+1,1,n1+#1 

290 WINDOW 40, 1,40, 25, 25 

300 WINDOU 45, 1,N+1,NL+2,NL+2 

310 MINDOW #4,N+2,N+2, 1 ,NL+2 


320 FOR i=1 TO nl+2:PRINT #4,CHR$(143);: 


org H3000 


ent 5% 


+ 
Li 
… 
y 
Ce) 
£ 
3 
a 
£ 
Li 
2 
œ 
x 
rm 
0 
“ 
Li 
“ 
uw 
œ 
La 
BA 
3 
e 
2 
U 
v 
£ 
3 
. 
v 
+ 
Li 
“ 
œ 
— 
© 
N 


40 jla le ligne occupe les octets &k4101 a k4136 
50 jla derniere les octets de &5901 a 85936 


30 jbit 7:etat futur----bit O:etat actuel 


u 
o 
œ 
2 
fe] 
a 
Wu 
a 
oO 
o 
. 
y 
" 
> 
< 
el 
L 
Le) 
2 
uw 
Le 
CS 
© 
A 


Hisoft GENA3.1 Assenbler. Page 
Pass | errors: 00 


3000 
3000 


ifenetre 3 


a,3 


ld 


3000 3E03 
3002 CDB4BB 


NEXT 

330 FOR i=1 TO n+{:PRINT #5,CHR$(143);:N 

EXT 

340 ‘affichage ecran et initialisation 

350 CALL 83200 

360 INK 2,1,26 

370 v$=CHR$(224):p$=",":16="7" 

380 PRINT #0," Presser D pour conme 
ncer* 

390 ’saisie de la confiquration de depar 
t avec les touches du curseur:shift + cu 
rseur sert a effacer 

400 LOCATE #3,1,1:PRINT #3, "?"s:x=liuzl 
410 PRINT #3,CHR$(B); :1F n<41 THEN PEN 
#3, 2 

420 PRINT #3,1$5;:PEN #3,1 

430 IF INKEY(O)=0 AND VPOS(#3)C>1 THEN 
PRINT #3, CHR$(B);v$; CHR$(11); CHR$(B): 

v$::GOSUB 550: GOSUR 530 :y=y-1 

44D IF INKEY(D)=32 AND VPOS(#3)C>1 THEN 
PRINT #3,CHR$(B);p$;CHR$(11); CHR$(B); 
p$;:GO0SUR 580: GOSUB 530:y=y-1 

450 IF INKEY(2)=0 AND VPOS(#3J)€NL THE 
N PRINT #3, CHR$(B); v$;CHR$(10)CHR$(B) 
3V$::GOSUB 550:G0OSUB 530:y=y+1 

460 IF INKEY(2)=32 AND VPOS(#3) €NL THEN 
PRINT #3, CHR$(B);p$; CHR$(10)CHR$(B)CH 
R$(46);:GOSUR 580:GOSUB 530 :y=y+1 


470 IF INKEY(1)=0 AND POS(#J)€N+{ THE 


itext stream select 


h1,#4000 
7,th1) 
z,rep 


call #bbb4 
push h1 


1d 
call bords 


call cal 
ret 


290 imodule d'affichage 
push de 


push bc 
push hi 


aff: 


300 
310 
320 
330 


3005 210040 
1E00 
1C 
1600 
14 
10F9 
10ED 
CB?E 


3008 
300D C5 
300E 24 


300A 0618 
3013 2E00 


3015 
3017 CD2930 


3014 

301F CD9D30 
3022 CDB830 
3025 CD4330 


300€ 
300F 0624 
3011 
3016 2C 
301C Ci 
301) 
3028 C9 
3029 C5 
302A DS 
302B ES 
302€ 


bit 
ir 


302E 2800 


N PRINT #3,CHR$(B) :v$:v$: :GOSUR 550:60S 

UR 530:x=x+#1 

480 IF INKEY(1)=32 AND POS(#3)<N+1 THEN 
PRINT #3, CHR$(B);p$;p$;:GO0SUB 5B0:G0SU 
B 530:»=x+1 

490 IF INKEY(B)=0 AND POS(#3)€)2 THEN 

PRINT #3,CHR$(B); v$; CHR$(B)CHRS(B); v$ 
::G0SUB 530:GOSUB 550:x=x-1 

500 IF INKEY(8)=32 AND POS(#3)€32 THEN 
PRINT 43, CHRS(8):p$; CHR$(B)CHR$(B) ;p#; 
:GGSUB 5B0:GOSUB 530: x=x-1 


510 IF INKEY(61)=0 THEN CLS #0: GOTO 610 
52D GOTO 410 

530 FOR i=1 TO 10:NEXT:RETURN 

540 ‘mise a jour de la case memoire cor 
respondant a la cellule traitee 

550 m=&4000+uy#8100+x 

560 POKE m,129 

570 RETURN 

580 m=&4000+y+#&100+x 

590 POKE m,0 

600 RETURN 

610 REM appel du code objet:calculs et a 
ffichage 

620 PRINT #0, "ESC =STOP 
630 ’boutle principale 
64D t1=TIME: CALL 43000 
650 IF TIME-t1 € 300*T THEN GOTO 650 ELS 
E CLS 43 

66D GOTO 640 


C =REPART"; 


5set cursor en h1 


push de 
pop h1 
call H#bb75 
pop h1l 
1d a, 224 
ibbSd ecrit chr$(A) 
call HbbSd 
call HbbSd 
480 jcal calcule l'etat futur de la cellule 
call somme 
3 
z,setvie 


Ds 
CA6930 


3032 El 
304C CD?7830 


3033 CD75BB 
3051 


3030 ES 
3031 

3036 Ei 
3037 3EEO 
3039 CDSDBB 
3030 Ei 
303D Di 
303E Ci 
303F C9 
3040 CDS5SDBB 
3043 2641 
3045 0618 
3047 C5 
3048 0624 
304A 2E01 
304F FEO3 


37 


8€ 


on 


ret. 
set et … 
7 


 setmor: res 


_ ip 


je 
inc. 


14: 


somme Dr 


12 


ge  jetat futur ivie 
e 


7, 1) 
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80. itent retourne l'etat actuel de la ceellule 
testé bit 


0,(h1} 
2:14 


a 


en compte toutes les cellules voisines 


hi 


a,0 
# 


test 
1. . 
test 


it 
h 


test 


. ibords. rend voisines Lien " colonnes opposees 
30B8 Oé61ie 1240 bords: Id b,24 


3OBA 210041 1250 id hi,#4100 

:3OBD 112441 1260 1d de, "4124 . 
30c0 A 1270 n: ld a,(de) 
30C1 77 1280 id (hl),a 

30c2 24 1250 inc h 

30c3 14 1300 inc d 


n 


b,24 


30C8 212541 1350 id h1,44125 
30CB 110141 1360 id de,#4101 
30CE 3iA 1370 ni: id a, (de) 
30CF 77 1380 id {ht),a 
3020 24 1390 inc h 

30D1 14 1400 inc d 


ni 


110059 de, 45900 
30D7 210041 1450 Id h1,#4100 
30DA 012600 1460 ” Id  bc,38 

EDBO 


110040 de,#4000 
30E2 210058 1500 1d h1,H45800. 


30ES5 012600 1510 1d  bc,38 
30E8 EDBO 1520 idir 
SO0EA C9 1530 ret 


1540 ;fin du programme principal 
1550 jce module initialise les cellules à l'etat:mort et affiche 
la grille 
3200 


3200 3E03 
3202 CDB4BB 1580 call Hbbba 
3205 210040 1590 id h1,#4000 
3208 O061A 1600 id b,26 


3204 CS 1610 netti: push bc 321D C3 -1290 pusli be 
320B 0626 1620 1d b,38 321E 0624 1740 ld b,36 
320D 3600 1630 nett2: Id  (h1),0 3220 1600 1750 id 4,0 
320F 2C 1640 inc 1 3222 14 1760 p2: inc d 
3210 10FB 1650 djnz nettz2 3223 DS 1770 push de 
3212 2E00 1660 lé 23,0 3224 Et 1780 pop hi 
3214 24 1670 inc h 3225 CD75BB 1790 cal) #bb?5 
3215 Ci 1680 pop bc 3228 CS 1800 push bc 
3216 10F2 1690 djnz netti 3229 DS 1810 push de 
| 3218 1E00 1700 1d e,0 3224: 3E2E 1820 1d a,H#2e 
321A 0618 1710 - dd b,24 322C CDSDBB 1830 call #bb5d 


321C inc e 322F Di 1840 : pop de 


3230 CI 1850 pop bc 

3231 10EF 1860 dinz p2 

3233 Ci .. 1870 pop bc 

3234 10Eé6 1880 djinz pi 
1890 


2 errors: 00 


Table used: 288 
Executes: 12288 


from 303 


UTILITAIRES DE 
RECORIE 


D'ECRANI 


Pascal HIGELIN 


n utilitaire de recopie d'écran est certainement 

l’un des outils les plus demandés lorsqu'il fait 

défaut sur le Basic de l’ordinateur. En voici un qui 
vous semblera complexe, mais qui présente l'avantage 
d’être quasi universel. Intégrant un SPOOLER (tampon 
permettant à l’ordinateur de travailler, même si l’im- 
primante n’est pas prête), il permet également de redé- 
finir des ‘’trames’’ pour simuler différentes couleurs. 


CARARARRRRARRRRRRRARRARARRREX) 
LEXX) D PP 


Ce logiciel rajoute cinq nouvelles 
commandes au Basic. AMS- 
TRAD : 

| COPY : recopie d'écran haute 
résolution ou une partie de celui- 
ci sur imprimante. 

| COLOR : redéfinit la trame d’une 
pseudo-couleur. 

| PRINTER : reconfigure l'inter- 
face imprimante. 

I TEXTE : recopie l'écran ou une 
partie de celui-ci en mode texte 
sur l'imprimante. 

| SPOOLER : redéfinit les paramè- 
tres du spooler. 

Le caractère | correspond à SHIFT 
et(® sur le clavier. 


MISE EN ROUTE 


Pour charger le programme en 
mémoire sans détruire un pro- 
gramme Basic qui s’y trouve déjà, 
faire : CHAIN MERGE ‘’ ””. Vous 
pouvez également charger le pro- 
gramme par RUN ‘‘ ‘’ mais, dans 
ce cas, un programme Basic déjà 
résident sera détruit. 


UTILISATION 


Reconfiguration de 
l'interface CENTRONICS 


IPRINTER,x,a,b,c,d,.. yÿ,e,f,g,h,.. 


ET me 


x octets y octets 


x : peut prendre les valeurs de O 
à 10 et correspond au nombre de 
codes à envoyer à l'imprimante 


10 et correspond au nombre de 
codes pour faire un retour à la 
ligne sur l'imprimante. 
e,f,g,h.... : y codes de retour à la 
ligne. 

m : peut prendre les valeurs 6 ou 
7, correspond au nombre de 
points verticaux de la tête d’im- 
pression de l'imprimante. 

p : nombre ajouté à chaque code 
graphique avant de l'envoyer à 
l'imprimante (nécessaire sur cer- 
taines imprimantes). 

q : peut prendre les valeurs O ou 
1 : la valeur 1 correspond aux 
imprimantes qui, en mode graphi- 
que, ont le bit de poids faible en 
bas, la valeur O correspond à cel- 
les dont le bit des poids faible est 
en haut. 

Exemple : Imprimante CENTRO- 
NICS 154 en mode graphique 6 
points. 


nombre à rajouter 


IPRINTER,3,&1B,&25,8&30,1,&0A,6,32,0 
PPS 


bit de poids faible en haut 

nombres de points 

codes de retour chariot 

nombre de codes de retour chariot 

codes de mise en mode graphique 

nombre de codes de mise en mode graphique 


pour la mettre en mode graphi- 
que. | 
a,b,c,d,... : x codes de mise en 


mode graphique. 
y : peut prendre les valeurs O à 


Exemple : 
IDP 560 


Imprimante CITIZEN 


IPRINTER,4,&1B,&4B,100,01,1,13,7,0,1 
Codes pour une largeur de 100 points. 
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Recopie d'écran graphique 
ICOPY,a,b,c,d.e,f 


a : doit être compris entre O et 
640, coordonnée graphique de la 
gauche de la fenêtre à imprimer. 
b : doit être compris entre O et 
640, coordonnée graphique de la 
droite de la fenêtre à imprimer. 
c : doit être compris entre O et 
400, coordonnée graphique du 
haut de la fenêtre à imprimer. 
d : doit être compris entre O et 
400, coordonnée graphique du 
bas de la fenêtre à imprimer. 

e : peut prendre les valeurs O ou 1 
O : demi-largeur (320 points 
maxi) 

1 : largeur normale (640 points 
maxi). 

f : peut prendre les valeurs O ou 


0 : hauteur normale (400 points 
maxi). 
1 : double hauteur (800 points 
maxi). 


Exemple : 
ICOPY,0,640,400,0,1,1 
Recopie d'écran tout entier en 
double hauteur. 


Redéfinition 
d'une pseudo-couleur 


Pour pouvoir représenter sur l'im- 
primante les différentes couleurs 
de l'écran, cette instruction per- 
mettra d'associer à chaque 
numéro de couleur de l'écran une 
pseudo-couleur représentée par 
une trame dans une matrice de 
8 x 8. 

ICOLOR,a,b,c,d,e,f,g,h,i 


a : numéro de la pseudo-couleur 
à définir. 


Lignes 100 à 170 


Table des sous-programmes du moniteur utilisé dans le 


programme. 
Lignes 210 à 230 


Branche l'extension du Basic (RSX). 
Lignes 240 à 310 

Recopie des jumpblocks de IMPR et BUSY (IMPR et BUSY 
sont déviés à cause du spooler). 
Lignes 420 à 460 

Table de sauts. 


b à j 
trame. 


: octets représentant la 


Exemple : 


ICOLOR,0,1,2,4,8,16,32,64,128 


00000001 
0000001 
0000010 
00001000 
00010000 
0010000 
01000000 
10000000 


Dans ce cas, la pseudo-couleur O 
(couleur du fond) sera une 
hâchure. 


Recopie de texte 
a : doit être compris entre 1 et 80 


(mode 2), coordonnée gauche de 
la fenêtre à imprimer. 


b : doit être compris entre 1 et 80 | 


(mode 2), coordonnée droite de 
la fenêtre à imprimer. 

c : doit être compris entre 1 et 
25, coordonnée du haut de la 
fenêtre à imprimer. 

d : doit être compris entre 1 et 
25, coordonnée du bas de la 
fenêtre à imprimer. 


Exemple : ITEXT,1,40,1,25 
Recopie tout l'écran en mode 
texte sur l'imprimante (mode 1). 
Si un caractère n'est pas 
reconnu, il sera remplacé par un 
espace. 


Reconfiguration 
du spooler 


Le spooler est une mémoire tam- 
pon qui est remplie à la place 
d'envoyer les caractères à l'impri- 


Lignes 470 à 570 
Lignes 590 à 680 


mante. Un second programme 
vide le spooler toutes les 1/50+ 
de seconde, donc on n’est plus 
obligé d'attendre l'imprimante. 


ISPOOLER,a,b,c 


a : adresse du début du spooler, 
par défaut : &9C30 

b : adresse de fin du spooler, par 
défaut : &A400 

c : nombre de tentatives de sor- 
tie d'un caractère sur l'impri- 
mante par 1/50e de seconde. 
Le spooler ne se protège pas lui- 
même : avant de faire, par exem- 
ple, ISPOOLER,&9000,&A400,8 
on fait MEMORY &9000 pour le 
protéger. Si on change de taille 
du spooler, celui-ci est vidé. Le 
spooler sera également utilisé par 
le Basic avec les instructions : 
PRINT #8 et LIST #6. 


REMARQUES GENERALES 


Dans le cas où le nombre de para- 
mètres des instructions est incor- 
rect ou que ces paramètres ne 
sont pas dans la plage indiquée, 
l'instruction sera ignorée. 

Pour modifier les paramètres par 
défaut des différentes instruc- 
tions, vous pouvez sauvegarder 
ure version du programme avec 
les paramètres choisis : ce seront 
les nouveaux paramètres par 
défaut. 

L'AMSTRAD, par sa construc- 
tion, ne peut envoyer que des 
octets ayant le bit 7 à O, donc si 
vous envoyez un code supérieur 
à 128, il lui sera retranché 128, 
ceci est également valable pour 
les codes de contrôle pour pas- 
ser en mode graphique. L'utilisa- 
tion d'une imprimante à mode 
graphique 8 points entraînera que 
la première ou la dernière ligne 
graphique sera vide. 


Table des instructions supplémentaires. 


Cette routine est appelée 50 fois par seconde. Elle tente 


de vider le spooler. 


INSTRUCTION COPY 


Lignes 700 à 710 


Il faut 6 paramètres. 


Lignes 720 à 890 

Récupère les paramètres. 

Lignes 910 à 1020 

Teste la validité des paramètres. 

Lignes 1040 à 1070 

Début de page. 

Lignes 1080 à 1090 

Début de ligne : envoi d’un saut de ligne puis des codes 
de passage en mode graphique. 

Lignes 1100 à 1150 

Initialisation pour un octet. 

Lignes 1160 à 1270 

Teste un point, applique le masque de la couleur. Si le 
point est en-dehors de la fenêtre, il est éteint. 
Lignes 1280 à 1300 

Fait rentrer le nouveau point dans l’octet. 

Lignes 1310 à 1410 

Teste le pas de la fenêtre. 

Lignes 1420 à 1480 

Descend d’un point en simple hauteur, d’un demi-point 
en double hauteur. 

Ligne 1490 

Recommence pour chaque point. 

Lignes 1500 à 1570 

Fait tourner l’octet pour placer les points correctement. 
Lignes 1580 à 1590 

Met l'octet dans le spooler. 

Lignes 1600 à 1660 

Teste la fin de ligne. 

Lignes 1670 à 1750 

Avance de deux points en demi-largeur et d’un point 
en largeur normale. Saut pour l’octet suivant. 
Lignes 1760 à 1970 

Descend d’une ligne. 

Lignes 1880 à 1890 

Début de ligne. 

Lignes 1900 à 1920 

Teste le bas de la fenêtre. 

Ligne 1930 

Recommence une autre ligne. 

Lignes 1950 à 1960 

Saut de ligne, puis rend la main au Basic. 

Lignes 1980 à 2080 

Lit le nombre d'’octets à envoyer dans TABLE puis envoie 
les n codes de TABLE. 

Lignes 2100 à 2200 

Lit le nombre d’octets à envoyer dans TABLE 1 puis 
envoye les n codes de TABLE 1. 

Lignes 2220 à 2280 

Détermine la position de la table de la couleur conte- 
nue dans A. 

Lignes 2290 à 2390 

En fonction de Y et de l'agrandissement vertical, on 
prend l’octet correct parmi les 8. 

Lignes 2540 à 2590 

Sort A sur le spooler. 

Lignes 2610 à 2630 

Correction puis sortie sur le spooler. 


INSTRUCTION COLOR 


Lignes 2650 à 2660 

Il faut 9 paramètres. 

Lignes 2670 à 2730 

Calcule la position dans la table des couleurs en fonc- 
tion du numéro de couleur. 

Lignes 2740 à 2830 

Transfère les 8 octets dans la table des couleurs. 


INSTRUCTION PRINTER 
Lignes 2850 à 2960 


Calcule la longueur du buffer d'entrée et la position du 
début. 


Lignes 2970 à 2980 

Maximum 10 codes de graphiques. 

Lignes 2990 à 3090 

Passe à la rubrique suivante. 

Lignes 3100 à 3110 

Maximum 10 codes de retour à la ligne. 

Lignes 3120 à 3210 

Passe à la rubrique suivante. 

Lignes 3220 à 3250 

6 ou 7 points autorisés. 

Lignes 3260 à 3300 

Teste le nombre de paramètres. 

Lignes 3310 à 3400 

Range les codes de passage en mode graphique dans 
TABLE. 

Lignes 3410 à 3490 

Range le nombre de points de l'imprimante (6 ou 7) et 
le code à ajouter à chaque caractère. 


INSTRUCTION TEXTE 


Lignes 3580 à 3690 

Il faut 4 paramètres. 

Lignes 3600 à 3890 

Teste la validité des paramètres. 

Lignes 3900 à 3930 

On commence dans le coin en haut et à gauche. 
Lignes 3940 à 4030 

Teste tous les caractères d’une ligne, si le caractère 
n’est pas reconnu, on met un blanc. 

Lignes 4040 à 4110 

Saut de ligne, on récupère les paramètres pour une 
nouvelle ligne. 


INSTRUCTION SPOOLER 


Lignes 4130 à 4140 

Il faut 3 paramètres. 

Lignes 4150 à 4280 

Récupère les adresses de début et fin de spooler et les 
teste. 

Lignes 4290 à 4360 

Range les adresses de début et de fin, vide le spooler 
et range le nombre d'essais effectués par 1/50° de 
seconde pour envoyer un caractère à l’imprimante. 
Lignes 4380 à 4460 

Indique s’il y a de la place dans le spooler. 

Lignes 4480 à 4700 

Range un caractère dans le spooler s’il y a de la place, 
sinon attend qu'il y ait de nouveau de la place. 
Lignes 4720 à 5050 

Routine d'interruption : tente d'envoyer les caractères 
du spooler sur l'imprimante. 

Lignes 5070 à 5080 

Copie des jump blocks de IMPR et BUSY. 

Lignes 5100 à 5130 

Sauts qui remplacent IMPR et BUSY. 

Lignes 5150 à 5340 

Variables. 

Lignes 5360 à 5540 

Table des couleurs. 


Pour faire une copie d'écran avec l’imprimante AMS- 
TRAD DMP1, on a intérêt à utiliser la séquence sui- 
vante : 


GAUCHE, DROITE, HAUT, BAS sont les limites de la fené- 
tre à imprimer. ‘ 

DLARG et DHAUT sont les codes de double hauteur ou 
demi-largeur et peuvent valoir 0 ou 1. 


1 L= (DROITE - GAUCHE + 1)/(2 - DLARG) 
2 | PRINTER,4,27,75,L \128,LMOD 128,1 ,10,7,0,0 
3 | COPY,GAUCHE,DROITE,HAUT,BAS,DLARG,DHAUT. 
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Pass 


BEFO 
BD2E 
BD2E 
BCDI 
BB72 
BP6F 
BB6O 
BCD7 


015094 
214C9A 
CDDIRC 
212EBD 
11D39D 
010300 
EDPO 
21D69D 
112EPD 
010300 
EDPO 
212BBD 
11D09D 
010700 
EDBO 
21D99D 
112BPD 
010500 
EDPO 
214394 
0681 
0E00 
117D9A 
CDD7BC 
c9 


619A 
C3899A 
C31395C 
C3379C 
C3239C 
C32390 
434F50 
D9 
4J4F4C4F 
D2 
5052494E 
D2 
544558 
D4 
535C4F4F 
02 


00 


1 errors: 00 


100 TEST: 
110 IMPR: 


— 120 BUSY: 
130 LINK: 


140 ROW: 
150 COLUMN: 
160 SCREEN: 


- 170 FRAME: 


180 

190 

200 

210 DEBUT: 
220 

230 

231 

232 

233 

234 

240 

250 

260 

270 

271 

272 

273 

274 

280 

290 

300 

310 

320 

30 

340 

350 

360 

370 

380 

390 BLOCK: 
400 BUFFER: 
410 COMTAB: 
420 

430 

440 

450 

460 

470 NMETAR:" 
480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


#BEFO 
#BD2P 
#B02E 
#ECDI 
#BB72 
#BB6F 
#2B60 
#RCD7 


#9A00 


BC. COMTAR 
LD HL,BUFFER 
CALL LINK 
LD HL,BUSY 
LD DE.RUSY! 
LD BC,J 
LDIR 
LD HL,2USY2 
LD DE,RUSY 
LD BC,3 
LIR 
LD HL,IMPR 
LD DE,IMPRI 
D BC.5 
LDIR 
LD HL,.IMPR2 
LD DE,IMPR 
LD BC,3 
LDIR 
LD HL,BLOCK 
LD B,4X1900000! 
LD C0 
LD DE,INTER 
CALL FRAME 
RET 


DEFS 9 
DEFS 4 
DEFW NMETAB 
COPY 
COLOR 
PRINTE 
TEXT 
SPOOL 
DEFH *CoP* 
DEFE “Y°+#60 
DEFM *COLO" 
DEFE "R°+480 
DEFM "PRINTE" 
DEFR ‘R°+#80 
DEFM “TEX" 
DEFE *T°+#80 
DEFM *SPOQLE"* 
DEF2 “R"+#80 
DEF2 0 
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580 


- 590 INTER: 


600 
610 
620 
630 
640 


PUSH EC 
PUSA DE 
PUSH HL 
PUSH AF 
CALL VIDE 
POP AF 


COULEUR DU POINT X=DE.Y=HL DANS A 
SORTIE DE À SUR IMPRIMANTE, 2IT 7 = 0 
:TESTE SI L’'IMPRIMANTE EST OCCUPEE 
BRANCHEMENT DE L'EXTENSION DU BASIC 


CURSEUR SUR LA LIGNE À 


3CURSEUR SUR LA COLONNE À 
CODE CARACTEFE SOUS LE CURSEUR DANS À 
BRANCHE LE SPOOLER 


ED52FA9D 


ED52 

D8 
2AFE9D 
EDSP009E 
77 

JF 

ED52 

DB 


2AFA9D 
22029E 
2AFE9D 
22049€ 
CDA99R 
CDPA9B 


47 


650 
660 
670 
680 
690 
700 COPY: 
710 
720 
730 
740 
750 
760 
770 
780 


940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1039 
1040 
1050 
1060 
1070 
1089 LIGNE: 
1090 
1100 OCTET: 
1110 
1120 
1130 
1140 
15° 


oo 
n°) 


E6 ES GE EEECEEEGEEEEES 
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9AF3 2A049€ 
9AF6 ED5BO29E 


1160 LOOP: 
1170 


“LD 


(e/] 


LE 
DE 
BC 


6 

NZ 

L, (1X+10) 
H,(1X+11) 
(X_DEB).HL 
L.(1X+6) 
H, (1X+47) 
(Y_DEB),HL 
L,(1X+8) 
H,(1X49) 
CX_FIN),HL 
L, (1X+44) 
H, (1X45) 
CY_FIN),HL 


A, (1X+2) 
(SIZE _X),A 


A, (IX+0) 
(SIZE _Y),A 


HL, OL FIN) 
DE. (X_DER) 


HL,DE 

C 

HL, (Y_DEE) 
DE, (Y_FIN) 


HL, DE 
C 


H, (X_DE2) 
O0 ,HL 

HL, (Y_DER) 
C),HL 

CR 

CODES 

A, (POINTS) 
B,A 

C,A 

4,0 
(FLAG), À 
(BYTE) À 


HL, (Y) 
DE. iX) 


JA099E 
FEDI 
2004 
37 

JF 
1808 
C5 
CDFO2E 
CDCB9E 
C1 
JA069E 
1F 
32069E 


21069E 
37 

F 

CBIE 
10FA 
JAU69E 
CDOD9C 
ED52029E 
2AFC9D 


1180 

1190 CP 

1200 JR 

1210 

1220 

1230 JR 

1240 SUITE: 

1250 

1260 

1270 POP 

1280 TOURNE: LD 

1290 WRAP: RRA 
LD 
LD 


LD A. (FLAG) 


1 


NZ.SUITE 


TOURNE 


PUSH BC 
CALL TEST 
CALL EVAL 


BC 
A, (BYTE) 


(BYTE),A 
HL, (Y) 
DE. (Y_FIN) 


NZ, CONT 
A 1 
(FLAG), A 
HL, (Y) 


DEC H 


LD 
CP 
JR 


A, (SIZE_) 
0 
NZ, SAUT 


DEC H 


LD 


(Y),HL 


DJNZ LOOP 


LD 
CP 
JR 
LD 


A, (SENS) 
0 

NZ, SAUT7 
A8 


SUB C 


LD 


1570 LOOP1: 
1580 
1590 
1600 
1610 SAUT7: LD 


B.A 
HL.BYTE 


DJNZ LOOP1 


A, (BYTE) 


CALL CARAC 


LD 
LD 


JR 
JR 


DE. (X) 
HL, (X_FIN) 


Z.SUIVAN 
C,SUIVAN 


INC DE 


LD 
CP 
JR 
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9B6D 
9B6E 
9872 
9875 
7278 
9B7B 
9B7E 
9B7F 
9282 
9884 
9286 


13 
ED53029€ 
2AFE9D 


1740 INC 
1750 SAUTJ: LD 
1760 LD 
1770 LD 
1780 JP 
1790 SUIVAN: LD 
1800 


A, (SIZE _X) 
0 
2, SAUTS 


4. 


DE 

00,DE 

HL, (Y_DER) 
(Y),HL 
OCTET 

A, (POINTS) 
C.A 

A, (SIZE_Y) 
0 

NZ, SAUTI 


78 


cB 
23 
TÆ 
CD059C 


Se 


1850 SAUT1: 


1980 RETOUR: 
1990 


LD 
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9BD8 
9BDC 
9BDF 
9BE! 


EDS2049E 
JAOB9E 


ED52029E 
JADASE 
FE00 


2320 
2330 
2340 
2350 
2360 
2370 SAUT2: 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 SAUT: 
2500 
2510 


LD 
LD 
CP 
JR 
SRA 
LD 
LD 
AND 


CP 
JR 
SRL 
LD 
AND 
LD 


B,0 
HL, (Y_DEZ) 


HL,EC 
(Y_DER,HL 
HL, (X_DEB) 
C0, 

À, (FLAG) 

1 

Z, RETOUR 
LIQE 


HL, TABLE 
B,(HL) 
A,B 

0 

1 

LE 

A, CHL) 
PRINT 

HL 

LOOP3 


HL, COULEU 
D,0 
E,A 


DE, (Y) 
A, (SIZE_Y) 
0 

NZ, SAUT2 
E 

D.0 

A,47 

€ 

E.A 

HL,DE 

A, (HL) 
C,A 

DE. (X) 

A, (SIZE_X) 
0 

NZ, SAUT4 
E 

A,#7 

E 

B,A 


c9 


FE09 

co 

DD6E 10 
CB25 
C25 
CB25 
2600 
110E9E 
19 
DD220C9E 
EDSROC9E 
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9CJA 20 
9C3B 2D 
9C3C 2600 
9C3E DD220C9E 
9C42 EDSROC9E 
9C4é 19 
9C47 22009 
QC4A SE 
9C4B 4F 
9c4c 

9C4D 

QC4F 

9c50 

9051 

9052 

9053 

9055 

9057 

9c58 

9059 

9C5B 

9c5c 

9c5D 

9CSE 

9c60 

9c61 

962 

9C83 

9C64 


2520 
2530 LOOPS: 
2540 
2550 
2560 
2570 PRINT: 


2770 
2780 
2790 
2800 BOUCLE: 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 


2900 
2910 
2920 
2930 
2940 


INC 
RL 
DJNZ 
RET 


B 
C 
LOOPS 


PUSH HL 


LD 
LD 
LD 
LD 
LD 
INC 
INC 
INC 
DJNZ 
RET 


LD 
SLA 


N7 
L,(1X+#16) 


H,0 

DE, COULEU 
HL,DE 
(ADDR), IX 
DE, (ADDR) 
B,8 

À, (DE) 
(HL),A 
DE 

DE 

HL 
BOUCLE 


L.A 
L 


L 

L 

H,0 
(ADDR),1X 
DE. (ADDR) 
HL, DE 
(ADDR),HL 
E, (HL) 


9C8F 
9c90 
9c91 


13 
10F9 
46 

04 
11DC9D 
TE 

12 

2 


2 
13 
10F9 


9093 7E 


9094 
9097 
9c98 


2089E 


321098 
c9 


FE04 
co 
DD7E06 
FEDI 
D8 
32FA9D 
DD7E02 
FEOI 
DB 
J2FE9D 
DD7E04 
FES! 
D0 
32FC9D 
DD7E00 
FE1A 


JJ60 LO0PE: 
3370 
3580 
3390 
3400 
3410 
3420 
3430 
3440 
3450 LOOP7: 
3460 
3470 


3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 


3570 


3580 
3590 
3600 
10 
3620 
3630 
3640 
3650 
J660 SAUTÉ: 
3670 
3680 
3690 
3700 TEXT: 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3650 
3840 
3850 


» ZM » 
A où 


z 
LT] 


HL, (ADDR) 
B, (HL) 
B 
DE, TABLE! 
A, (HL) 
(DE) ,A 
DEC H 
DEC H 
INC DE 
DJNZ LOÔPÉ 
B, (HL) 
B 
DE, TABLE 
A, CHL) 
(DE) ,À 


LOOP7 

A, (HL) 
(POINTS), À 
HL 

HL 

A, (HL) 
(CARAC+1).A 


46 


NI 

LA, (IX+6) 
1 
c 
(X_DEB),, A 
A, (1X+42) 
1 
C 
(Y_DEB), À 
A, CIX#4) 
gi 
NC 
OXLFIN),À 
A, (IX40) 
26 


BSECARSECASELASERS 


43 


DO 
32009E 
JAFE9D 
4F 
300€ 
91 

D8 

4F 

oc 
3AFA9D 
47 
JAFC9C 
90 

D8 

47 

04 
ED430C9E 
3AFE9D 
CD72BR 
3AFA9D 


3860 
3870 
Je80 
3890 
3900 
3910 
3920 
3950 
3940 
3950 
3960 
3970 
3980 
3590 
4000 
4010 
4020 
4030 
4040 
4050 


LOOPB: 


LD 
SUR 
RET 
LD 
INC 
LD 
LD 
D 
SUR 
RE 
(Bi) 
INC 
LD 
LD 
CALL 
LD 
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9CFD 


44 


F5 
CD6FBB 
CD60EB 
FE20 
3002 
3E20 
cDO59C 
Fi 

3c 
1DEC 
CDA99P 
ED4BOC9E 


DD6E02 
DD6603 
DD5E04 


El 

D8 
ED53F49D 
22F29D 
ED53F89D 
13 
ED53F69D 
DD7E00 
328090 
c9 


2AF69D 
ED5PFB9D 
37 

JF 

ED52 

37 

c8 

SF 


4060 LOOP4: 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4209 
4210 
4220 
4230 
4240 
4250 SPOQL : 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 PUSY3: 
4510 
4520 
4530 
4540 
4550 
4560 
4570 


PUSH 
CALL 
CALL 
cp 
JR 
LD 
CALL 
POP 
INC 
DJNZ 
CALL 
LD 
DEC 
RET 
LD 
INC 


NC 
(Y_FIN).A 
A, (Y_DEB) 
CA 


A, CI FTH) 
3 

C 

BA 

B 
(ADDR), PC 
A, (Y_DEB) 
ROù 

A, (X_DEB) 


#Æ 

COLUMN 
SCREEN 

32 

NC, SUITE4 
A,32 
PRINT 

#F 

A 

LOOP4 

CR 

EC, (ADDR) 
( 

1 

A, (Y_DEB) 
A 
(Y_DEB),A 
LOOPB 


3 

NI 
L.(1X+2) 
H, (1X+3) 
E,(IX+4) 
D,(1X+5) 
A,HAJ 


HL,DE 
# 

C 
(SP_MIN) ,DE 
(SP MAX)HL 
(SP VID) ,LE 
Œ 
(SP_REM) ,DE 
A, (IX40) 
(VIDE+1),A 


HL, (SP_REM) 
DE, (SP_VID) 


HL.DE 


? 


RAS 
Hiso 


9D68 
9D69 
9D6C 
9D6E 
971 
9D72 
9073 
9076 
9D7A 
9D7B 
9D7C 
9D7E 
9D80 
9D83 
9086 
9D87 
9088 
9D89 
9DBA 


9D8B 
9D8D 
9D90 
9D94 


ES 
CD559D 
J8FB 
2AF69D 
77 

23 
22F69D 


EDSRF29D 


37 

JF 
ED52 
2006 
2AF49D 
22F69D 
EI 

Di 

C1 

F1 

c9 


0608 
2AF69D 


ED5BF89D 


37 
ED52 
c8 
2AF89D 
23 
22F89D 


EDSPF29D 


37 
F 
ED52 
2813 


C38D9D 
2AF89D 
2 
22F89D 
10BE 
C9 


CFF287 
CF1PBB 


9DD6 C3 


4580 
4590 
4600 IMPRJ: 
4610 
4620 
4650 


4b4C 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 VIDE: 

4850 LOOP9: 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 SUITE2: 

5100 

5110 

5120 

5130 SUITE: 

5140 

5150 

5160 

5170 

5180 

5170 IMPRI: 

- 5200 BUSY1: 
5210 


RETURN: 


5220 PUSY2: 


RET 


SCF 

PUSH AF 
PUSH BC 
PUSH DE 


PUSH HL 

CALL FUSYI 

JR  C,SAUTS 
HL, (SP_FEM) 
(HL),A 
H 
(SP_2EM) ,HL 
DE, (SP_MAX) 


HL,DE 

NZ. RETURN 
HL, (SP_MIN) 
(SP_REM) ,HL 
HL 

DE 

BC 

AF 


B,B 
HL, (SP_REM) 
DE, (SP VID) 
scF 
SBC HL.DE 
RET 2 
LD HL,(SP VID) 
INC H 
LD (SP VID),H 
LD DE, (SP_ MAX) 
SCF 
CCF 
SRC HL.DE 
JR Z,SUITEZ 
LD HL,(SP VID: 
LD A,(HL) 
PUSH BC 
CALL RUSYI 
POP BC 
JR  C,SUITES 
PUSH BC 
CALL IMPRI 
POP BC 
DJNZ LOOP9 
RET 
LD HL,(SP_MIN) 
DEC HL 
LD (SP VID),H 
JP LOOP9 
LD HL,(SP VID) 
DEC H 
LD (SP VID),HL 
DJNZ LOUF9 
RET 


DEFB #CF,.#F2.#87 
DEFB #CF,#1B,488 


Hisoft GENA3. 1 Assenbler. Page 10. 


DEFB #C3 


9DD7 
9DD9 
9DDA 


9DDC 


9DE7 


9DF2 
9DF4 
9DF6 
9DF8 
9DFA 
9DFC 
9DFE 
9€00 
9E02 
9€04 
9E06 
9E07 
9E08 
9E09 
9EDA 
9€0B 
9E0C 


9EDE 
9E0F 
9€10 
9E11 
9€12 
913 
9E14 
915 


916 
9E17 
918 
9€19 
SE1A 
9ELP 
9ELC 
9E1D 


9ELE 


9A00 


559) 
cs 
649D 


010A0000 


03122530 


0094 
3092 
3192 
3092 


5230 

- 5240 IMPR2: 
5250 
5260 
5270 TABLE: 
5280 
5290 TABLE! : 
5300 
5310 SP_MAX: 
5320 SP_MIN: 
5330 SP_REM: 
5340 SP_VID: 
5350 X_DEB: 
5360 X_FIN: 
5370 Y_DEB: 
5380 Y_FIN: 
5390 x: 
5400 Y: 
5410 BYTE: 
5420 SENS: 
5430 POINTS: 
5440 FLAG: 
5450 SIZE _X: 
5460 SIZE _Y: 
5470 ADDR: 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 


COULEU: 


Pass 2 errors: 00 
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FLAG 

IMPRI 
INTER 
LOOP 

LOOPJ 
LO0PÉ 
LO0P9 


9E09 
9DD0 
9ATD 
9AFJ 
9BCJ 
9c80 
9D8D 


POINTS 9E08 
RETOUR 9BAS 


9237 
9B6E 
9CAD 
9E07 
9023 


SP_REM 9DF6 
SUITE2 9DBC 
SUIVAN 9E7B 


TEST 
VIDE 
X_DEB 


BBFO 
9D8B 
9DFA 


Y DER 9DFE 


Table 


used: 


LIGNE 


FRAME 
IMPR2 


BCD7 
909 
9AEO 
LOOP1 9B4A 
LOOP4  9CFD 
LOOP7  9C8C 
NMETAB 9A61 
PRINT 9005 
RETURN 9086 
SAUTI 9288 
SAUT4  9BFE 
SAUT7 9250 
SIZE_X 9EDA 
SP_MAX 9DF2 
SP_VID 9DFB 
SUITES 9DC4 
TABLE 9DDC 
TEXT 9CB3 
WRAP  9E1O X 
XFIN S9DFC Y 
Y FIN 9E00 


1001 


Executes: 39424 


IMPR 
IHPR3 
LINK 
LOOP2 
LOOPS 
LOOPB. 
OCTET 
PRINTE 
ROW 
SAUT2 
SAUTS 
SCREEN RP6O 
SIZE _Y 9E0B 
SP_MIN 9DF4 
SUITE 9205 
SUITE4 9004 
TABLE1 9DE7 
TOURNE 920D 


DEFW RUSY3 
DEFR #C3 
DEFW IMPR3 


DEFB 1,10,C.0,0,0, 
0.0,0,0,0 


DEFE J.#1B.#25,#30, 
0.0,0,0.0,0,0 

DEFW DEBUT 

DEFW DERBUT-2000 

DEFW DEBUT-2000+1 

DEFW DEPUT-2000 


DEFB %00010000 
DEFB 7090100000 
DEFB %01000000 
DEFB 10900000 
DEFB 70000000! 
DEFP *00000010 
DEFB 700000100 
DEFR %00001000 


DEF2 %11111111 
DEFB %11111111 
DEFR %11111111 
DEFB %11111111 
DEFB %11111111 
DEFB 21111111 
DEFE %11111111 
DEFB *11111111 


DEFS 112 


ENT DEBUT 
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BD2P 
9D64 
BCD! 
9222 
9c00 
9CFO 
9AEb 
9037 
BR72 
9PE5 
9D69 


9E02 
9E04 


fros 1500 


VISMO FAIT PEAU NEUVE 


Afin d'améliorer le service client, M. ZDUNEK 
de la société Vismo de Paris a changé l’agen- 
cement de son magasin. Dans le même 
temps, le second magasin faisant double 
emploi serait fermé. 


AMSTRAD S'AFFICHE 


Grosse campagne d'affichage chez AMS- 
TRAD FRANCE. 2500 panneaux dans 63 vil- 
les dès le 15 octobre. Quelque temps après, 
aux environs du 15 novembre, 13 villes de 
plus de 300 000 habitants se verront affi- 
chées AMSTRAD. 

Il'est regrettable que, dans le même temps, 
quelques revendeurs en mal de trésorerie 
attendent avec impatience d'être livrés de 
leurs machines. 


PUBLICITE 


AMSTRAD FRANCE a lancé également une 
grande campagne avec différents supports : 
cela va de l'Express, Science et Vie à toutes 
les revues informatique grand public. 


CPC S'AFFICHE AUSSI 


Pour ce numéro, la direction des Editions 
SORACOM a décidé de mettre en place une 
campagne d'affichage dans différentes gran- 
des villes de France et sur Paris et banlieue. 


CPC AMSTRAD A L'ECOLE 


Si l'école publique fait appel de gré ou de 
force au TO9 de THOMSON, de plus en plus 
d'établissements, particulièrement dans le 
privé, font appel à AMSTRAD. Une manière 
de bien gérer son établissement. Reste à 
savoir si les logiciels éducatifs suivront. 


121 % 


AMSTRAD est devenu le leader incontesté 
du marché des ordinateurs domestiques, fou- 
lant ainsi le créneau solidement détenu par 
Sinclair. 

L'exercice terminé au 30 juin 1985 laisse 
apparaître un bénéfice imposable en hausse 
de 121 %. Cela représente un total de 
20 115 000 livres. Mais le plus intéressant 
est la hausse des ventes à l'étranger. De 11 
millions de livres, elles passent à 73 millions. 
Une belle réussite commerciale au moment 
où MSX sombre... 


MULTIPLAN ET 
MAC PAINT SUR AMSTRAD 


Un Muitiplan sur PCW 8256 et 6128 dispo- 
nible. Voilà une nouvelle intéressante pour les 
utilisateurs. Nous vous présenterons plus en 
détail ce logiciel qui, associé à d'autres, per- 
met d'élargir le champ d'action. Reste à 
savoir si Je Multiplan en question a les mêmes 
possibilités que celui du MAC. 

Comme vous pouvez le constater dans ce 
numéro, nous vous présentons une grande 
première : le petit frère du Mac Paint et. 
ce n’est qu'un début | 


ACTUALITE 


M. Dominique ROUSSIES d'Angers est le pre- 
mier abonné tiré au sort à recevoir un livre 
de 139 francs. || y aura un tirage chaque 
mois. 


POLITIQUE DE VENTE NOUVELLE 


De nombreux revendeurs reçurent en octo- 
bre une circulaire de Marion VANNIER, Direc- 
teur Général d'AMSTRAD FRANCE. AMS- 
TRAD FRANCE propose un abonnement nou- 
veautés. Ce système permet de recevoir 5 
exemplaires maximum des softs et périphé- 
riques. Le montant de la commande se situe 
entre 1000 et 2000 francs maximum. 
AMSTRAD propose également un PCW 8256 
en démonstration-vente avec, pour la pre- 
mière fois, une traite au 31/12/85 | 


M. BOUICHET POSE UNE 
QUESTION AUX PROFESSIONNELS 


Possesseur d'un 464, puis d'un 6128, je 
désirerais utiliser le courrier des lecteurs pour 
faire part de quelques réflexions au sujet du 
“’graphisme”” de ces appareils. 

Je pense, en effet, qu'il est temps de faire 
un sort à ces ‘‘Pub'’ qui vantent les mérites 
et la ‘‘définition’” de ces appareils. 

— Il est à remarquer que l'écran fait moins 
de 400 points de définition (à quoi servent 
les 640 ?). 

— Qu'en mode texte (80 c., mode 2), le texte 
est presque illisible. 

— Qu'en mode 1, on ne peut disposer que 
de 4 couleurs ! 

— Qu'en mode 0, si on a bien 16 couleurs, 
les traits sont tellement gros qu'inutilisables 
et les matrices énormes. 

Comment appeler tout cela autrement que la 
‘‘misère des couleurs des AMSTRAD ?'' 
{sûrement un record). 

Pourtant, les logiciels de jeux sont manifes- 
tement en Mode 2 et avec les 16 couleurs... 
Quel artifice, les programmeurs ‘‘Pro’’ 
emploient-ils pour arriver à ce résultat ? 
Je pense qu'une solution ferait bien des heu- 
reux. 


Qui répondra ? 
S. FAUREZ 
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FACTURATION 
CAISSE DETAIL DE 


OGICYS 


Florence MELLET 


e nouveau logiciel de facturation 

ressemble, à s'y méprendre, au pre- 

mier logiciel de FACTURATION de 
LOGICYS présenté en septembre dernier 
dans CPC n° 3. 
— Par sa présentation d’abord : pochette à 
rabats en plastique dur de couleur bordeaux, 
notice bâtie sur le même schéma, étiquette 
sur la disquette (face A : programme ; face 
B : fichiers). 
— Par sa structure ensuite : gestions de 
fichiers CLIENTS - ARTICLES AVEC STOCK 
- CONSTANTES, saisie et édition de factu- 
res, inventaire, calcul des réapprovisionne- 
ments, saisie des entrées/sorties de stock, 
clôture et journal des ventes. 
Je pense qu'il n’est pas utile de répéter ici 
les observations faites dans le premier arti- 
cle pour tous les points communs aux deux 
logiciels. Il sera plus simple et plus clair de 
procéder par comparaison entre FACTURA- 
TION (1°' logiciel) et CAISSE-DETAIL (logi- 
ciel à l'essai aujourd'hui) | 


CAPACITE DES FICHIERS 


Facturation  Caisse-détail 
Fichier clients maxi 499 maxi 100 
Fichier articles maxi 1499 maxi 2500 
Fichier constantes taux TVA 3 8 


L'augmentation à 8 taux de TVA dénote le 
souci de contenter les impératifs de toutes 
les professions ou presque. Même chose 
pour le fichier articles. Malheureusement, ces 
améliorations amputent sérieusement la 
capacité du ficher clients. 


GESTION DU FICHIER CONSTANTES 


Hormis les 8 taux de TVA désormais prévus, 
j'ai noté qu'il y avait plus d'espace disponi- 
ble sur les 5 lignes réservées à la raison 
sociale. Par contre, le choix entre ‘‘facture'” 
ou ‘‘avoir'’ n'existe plus. Reste seulement le 
numéro de facture. 

Apparaissent deux nouvelles zones : 

— Précision : cette zone permet de détermi- 
ner si l’on veut arrondir le prix de vente au 
franc supérieur, aux 10 centimes supérieurs, 
ou ne pas l'arrondir. 

— Texte sur facture : il n’en est pas fait men- 
tion dans la notice, mais deux lignes sont pré- 
vues pour une mention répétitive comme 
‘’Merci, à bientôt’, par exemple. Ces deux 
lignes s'inscrivent au bas de la facture. 


GESTION DU FICHIER CLIENTS 


Bien qu'il ne comporte plus que 100 clients, 
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il n'y a pas de différence. Seuls les codes 
représentant et qualité n'existent plus. Les 
clients peuvent également être listés sur 
imprimante par numéro de code. 
NOUVEAU : lorsqu'on veut créer une nou- 
velle fiche client et qu'on ne connaît pas le 
dernier numéro utilisé, le programme donne 
le premier numéro libre à la saisie du code 
9999. 

Le numéro de téléphone est prévu pour la 
nouvelle numérotation à 8 chiffres. 


GESTION DU FICHIER ARTICLES 


Le fichier articles a été modifié pour une 
grande partie. 

LE CODE ARTICLE : de 4 numériques, il passe 
à 8 alphanumériques. Cette nouvelle numé- 
rotation permet le listage des articles par 
famille. 

Ce critère de tri peut intervenir sur une sim- 
ple liste des articles en fichier, sur le calcul 
des réapprovisionnements, sur l'édition d'in- 
ventaires chiffrés ou vierges. 
DESIGNATION : 18 alphanumériques. 
PRIX D'ACHAT : il n'est plus saisi directe- 
ment et n'intervient plus dans le calcul du prix 
de vente. || résulte soit du calcul du prix tarif 
HT moins le taux de remise ou est égal au 
prix tarif HT, soit du prix tarif TTC moins la 
TVA ou du prix tarif TTC moins les taux de 
remise et moins la TVA. 

CODE HT/TTC : O pour prix tarif HT ; 1 pour 
prix tarif TTC. 

PRIX TARIF : c'est le prix d'achat HT ou TTC 
avant déduction des remises. 
COEFFICIENT DE VENTE : il intervient sur le 
prix tarif HT en ajoutant la TVA ou seulement 
sur le prix tarif TTC pour le calcul du prix de 
vente. 

TAUX DE REMISE : il prévoit deux remises 
cumulées sur le prix tarif. intervient dans le 
calcul du prix d'achat. 

CODE TVA : il faut saisir l’un des 8 taux défi- 
nis dans le fichier constantes. 

NOUVEAU : introduire l'incidence de TVA sur 
chaque article lors de la création du fichier 
présente un avantage certain. En effet, il 
n'est plus possible, lors de la saisie des fac- 
tures, de faire des erreurs de TVA puisqu'elle 
est prédéfinie à la création de l’article. 
LES AUTRES PARAMETRES : prix moyen 
pondéré, quantité mini, quantité réappro, 
quantité entrée, quantité sortie sont sans 
changement, excepté : 

— ‘quantité mini’’ qui passe de 99,99 à 
999,99 maximum ; 

— ‘‘quantité réappro'” qui passe de 9999,99 
à 99 999,99 maximum. 

Ce dernier paramètre est utile pour mémori- 


ser en quelque sorte sur l’article en question 
la quantité minimale de réapprovisionnement 
pour un prix d'achat au plus juste (remises 
quantitatives fournisseurs). 

En résumé : les prix d'achat HT et prix de 
vente TTC ne sont pas saisis directement 
mais découlent des calculs suivants : 

— Pour un prix tarif HT : 

PA = Prix Tarif OU PA = Prix Tarif — Remi- 
ses. 

PV = Prix Tarif x Coef. OU PV = Prix Tarif 
+ TVA. 

— Pour un prix tarif TTC : 

PA = Prix Tarif - TVA OÙ PA = Prix Tarif 
— Remises — TVA. 

PV + Prix Tarif x Coef. OU PV = Prix Tarif. 


GESTION DES FACTURES 


La saisie des factures se fait en relation avec 
les fichiers CLIENTS et ARTICLES. Contrai- 
rement au premier logiciel FACTURATION, 
l'édition sur imprimante se fait après chaque 
saisie de facture. 

Iln'est plus nécessaire de saisir la date à cha- 
que nouvelle facture. On la tappe une fois au 
clavier au commencement du travail où en 
début de journée, tout de suite après le char- 
gement du programme. 

L'affectation des facteurs à un ou plusieurs 
représentants n'a plus lieu d'être, mais il 
aurait été utile de la prévoir pour les vendeurs. 


SAISIE DES FACTURES 


Le masque de saisie est complètement 
changé. La colonne Taux de TVA a disparu, 
et pour cause, puisque la TVA est un des 
paramètres de l’article. 

La colonne Remise n'existe plus non plus. On 
ne peut donc plus ajouter les remises par ligne 
d'article. Seule subsiste la remise globale en 
pied de facture. 

Pour les clients qui ne sont pas en fichier, le 
code 9999 s'affiche, mais il n’est pas possi- 
ble de saisir nom et adresse. Les clients 
‘’comptoir'” resteront anonymes. 


EDITION DES JOURNAUX DES VENTES 


Il'est possible de procéder à des clôtures et 
journaux de ventes intermédiaires tout en 
conservant la clôture et le journal des ven- 
tes de fin de mois. Ceci permet d'obtenir le 
CA d'une journée ou d'une semaine sans être 
obligé de faire des cumuls du mois ‘‘à la 
main'’. 

— JOURNAL PERIODIQUE : 1 ligne par fac- 
ture avec les ventilations HT, TVA, DIVERS, 
PORT et REMISE. 


— JOURNAL DE FIN DE MOIS : 1 ligne par 
JOURNEE et par MODE DE REGLEMENT, 
avec les mêmes ventilations que le journal 
périodique. 

£n fin de journal, et dans les deux cas, les 
totaux sont classés par catégorie : HT, TVA, 
TTC, règlements. 


COPIE DES FICHIERS 


Autre élément nouveau sur ce logiciel. Il 
comprend un programme intégré pour la sau- 
vegarde des fichiers. Ainsi, les copies seront 
facilement tenues à jour, car il n'est plus 
nécessaire de faire appel à un autre logiciel. 


UTILITAIRES ET DIVERS 


Cette option au menu général est aussi nou- 
velle. 

Elle permet : 

— le tri des articles par référence et par 
famille, 

— l’annulation d’une facture sur le journal 
des ventes. 


CONCLUSION 


Ce logiciel fait partie de la série LOGICYS 
‘logiciels professionnels sur AMSTRAD”. 
Les différentes améliorations que j'ai relevées 
démontrent bien une certaine volonté de 
séduire les PME/PMI. Je constate d’ailleurs, 
et en toute modestie, que nos suggestions 
ont trouvé, pour certaines, une application 
dans ce logiciel ; à savoir : plus de 4 taux de 
TVA, l'édition immédiate des factures, le tri 
des articles, les journaux intermédiaires pour 
les plus importants. 

Malgré tout, je reste sur ma faim. Je pense 
qu'il est trop complet pour une tenue de 
caisse et pas assez performant pour une fac- 
turation. 

Je sais que la place mémoire limite bien des 
élans et contraint aux choix difficiles. 

Ici, la gestion des stocks, telle qu'elle est 
conçue, avec incidence sur le fichier articles, 
prend beaucoup de place mémoire. Une ges- 
tion, réduite au minimum, à savoir unique- 
ment quantitative, permettrait peut-être 
d'augmenter les possibilités du fichier clients, 
avec tri alphabétique ou non, par code pos- 
tal et cumul du CA, TTC ou HT par client, par 
période (mois, trimestre, etc.). Dans ce cas, 
la gestion des stocks chiffrée pourrait faire 
l'objet d’un autre logiciel avec calcul du rou- 
lement des articles, calcul des marges glo- 
bales, etc. 

Mais, ce ne sont que des idées amenées par 
l’utilisation de différents logiciels qui, tous et 
toujours, se rejoignent à un moment, malgré 
les petits plus de chacun. 

Il est temps de conclure : ce logiciel est mieux 
réussi que le premier, mais ne peut pas le 
remplacer. Il se substituera parfaitement et 
avantageusement à une caisse enregistreuse 
sophistiquée et coûteuse. 


Eciitions SORACOMI 
SARL capital 50.000F 

10 Avenue du Gal de Gaulle 

35170 PRUZ -— Tel. 99.52.98.11 
CCP Rennes 794.17 V 


FAUREZ Sulvio 
10 Av. Gal de Gaulle 


335170 BRUZ 


Ech: COMPTANT 
Ticket : 32 23.10.85 


xx FACTURE *+% 


JOUEZ AVEC AMSTRAD 

100: 

MIEUX PROGR/AMSTR 

DISCOi 

CPC DISC Noïi 140.00 
ROO4& 

REVUE CPC No Ze. 18.00 


Livraison a parution 
1003 
APPRENEZ ELECTRON 


REMISE 


REHHEHE DE DIE DIE DE DEN JE 
* T.T.C * 
* + 
* 380.935 * 
* x 
ÉLLLLLILLLLLS] 


Mode de Reglement : AU CHOIX 
RESERVE DE PROPRIETE JUSQU’À REGLEMENT INTEGRAL 


VOUS 


voir page 3 


ABONNEZ 
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LE COIN 
BIDOUILLE 


Denis BOURQUIN 


près avoir décrit l'interface 

permettant de relier un fond 
de panier, apte à recevoir plu- 
sieurs réalisations, à l’AMS- 
TRAD, nous commençons au- 
jourd’hui la description de la pre- 
mière réalisation à relier au CPC. 
Pour répondre au souhait d'un 
grand nombre de lecteurs, nous 
commencerons par une interface 
permettant de réaliser des liai- 
sons série ; cette interface offrira 
deux connecteurs de sortie, un 
au format correspondant à la 
norme RS 232, l'autre sur 
connecteur DIN compatible avec 
le connecteur Minitel. 
Pour la réalisation de cette inter- 
face, nous avons choisi le circuit 
INTEL 8251 qui est une interface 
programmable de transmission 
série. Ce circuit peut travailler en 
mode synchrone et en mode 


MMicropolis 


DERNIERE MINUTE 


5 % sur toute la 
boutique à tous les 


Nases de la micro. 
MICROPOLIS 


(encore eux) 
53, av. Philippe Auguste 
75011 PARIS 
Tél.: 43.56.31.10. 
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asynchrone. 

Il convertit, sous forme de série, 
les données que lui fournit le 
microprocesseur sous forme 
parallèle. || peut simultanément 
recevoir des signaux série et les 
transformer en format parallèle 
pour les envoyer au microproces- 
seur. Le 8251 dialogue avec le 
microprocesseur et lui indique 
quand il peut accepter un nou- 
veau caractère à transmettre ou 
quand il a reçu un caractère 
complet pour l'unité centrale. 
Les principaux signaux échangés 
avec le microprocesseur sont : 
RESET : un niveau haut sur cet 
entrée le met en attente d’un mot 
de commande. 


WR : Un niveau bas sur cette 
entrée provoque une écriture 


dans le 8251 de la part du micro- 
processeur. 

RD : Un niveau bas sur cette 
entrée informe le 8251 que le 
microprocesseur lit une donnée 
ou un mot d'état. 

C/D : (control-data) informe le 
8251 que l'octet présenté sur le 
bus de donnée est soit un octet 
de donnée, soit un mot de 
commande ou un mot d'état. 
CS : (chip select) un niveau bas 


sur cette entrée sélectionne le 
8251. 


La figure 1 donne les différentes 
configurations possibles pour ces 
broches. 


Le 8251 possède ensuite un cer- 
tain nombre d'’entrées-sorties 
permettant de le connecter à un 
modem ou à un terminal. 

On trouve : 

DRS : (data set ready) C’est une 
entrée qui peut être testée au tra- 
vers du mot d'état. Elle permet de 
vérifier l’état du modem. 

DTR : (data terminal ready) cette 
sortie vers le modem est position- 
née par le bit correspondant dans 
le mot de commande. 

RTS : (request to send) cette sor- 
tie est aussi positionnée par le bit 
correspondant dans le mot de 
commande. 

CTS : (clear to send) cette entrée 
permet au 8251 de fournir les 
données série lorsque le bit TXEN 
du mot de commande a été posi- 
tionné. 

TXRDY : (transmitter ready) cette 
sortie informe le microprocesseur 
que la partie émission du 8251 
est prête à recevoir une donnée. 
TXE : (transmitter empty) cette 
sortie est au niveau haut lorsque 
le 8251 n'a pas de donnée à 
transmettre. 

TXC : (transmitter clock) horloge 
d'émission. En mode synchrone 
elle est égale à la vitesse de trans- 
mission, en mode asynchrone, 
elle est un multiple de la vitesse 
de transmission. 

RXRDY : (receiver ready) cette 
sortie informe le microprocesseur 
que le 8251 a reçu un octet et est 
prêt à le lui fournir. 

RXC : (receiver clock) horloge de 
réception, sa fréquence est égale 


8251 — bus de données 


bus de données — 8251 

mot d'état — bus de données 
bus de données — reg. commande 
bus données — état flottant 


Figure 1 


à la vitesse de transmission en 
mode synchrone et est égale à un 
multiple de cette vitesse en mode 
asynchrone. 

SYNDET : (sync detect) est uti- 
lisé en mode synchrone seule- 
ment. 


Dans notre montage, le 8251 est 
implanté aux adresses FBE4H et 
FBE5H, les données sont en 
FBE4H et les mots de commande 
et d'état en FBE5H. 


PROGRAMMATION DU 8251 


Avant tout opération de transmis- 
sion, le 8251 doit être initialisé 
par un ensemble de mots de 
commande fourni par le micro- 
processeur ; cette initialisation 
doit suivre une opération de 
reset. 

Les mots de commande sont de 
deux types : 

— sélection de mode : elle suit 
impérativement une opération de 
reset, 

— instruction de commande : les 
mots de commande peuvent être 
émis à n'importe quel moment. 


INSTRUCTION DE 
SELECTION DE MODE 


Le 8251 peut être utilisé pour des 
transmissions de type synchrone 
ou asynchrone ; dans un premier 
temps, nous allons nous intéres- 
ser seulement au mode asynch- 
rone. 

Au caractère fourni par le micro- 
processeur, le 8251 rajoutera 
automatiquement un bit start et 
le nombre de bits stop précisé 
lors de la sélection de mode. II 
insère aussi un bit de parité avant 
les bits de stop et le caractère 
peut alors être émis en mode 
série sur la sortie TXD ; les bits 
sortent sur le flanc descendant de 
TXC à une vitesse égale à 1,1/ 
16,1/64 fois la fréquence TXC, 
comme précisé dans la sélection 
de mode. 

Le format du mot de sélection de 
mode est donné à la figure 2. 


Après l'envoi d'une sélection de 
mode; il est possible d'envoyer 
un mot de commande, son for- 
mat est donné à la figure 3. 


donne le nombre de bits stop insérés. 

S2 S1 

O O invalide 

O 1 1bit 

1 O 11/2 bit 

1 1 2bits 

donne la génération de parité 1 =paire, O =impaire. 
valide ou non la parité 1 =validée, 0 =invalidée. 
donne la longueur des caractères transmis. 
L2 L1 

O O 5bits 

O 1 6 bits 

1 O 7 bits 

1 1 8 bits 

donne le facteur de multiplication de la vitesse 
de transmission. 


mode synchrone 
1X 

16X 

64X 


Figure 2 


Les bits DSR, SYNDET, TXE, RXRDY, TXRDY ont la même défi- 
nition que les broches du 8251 de même nom. 


Est le drapeau d'indication d'erreur de parité. 
Est le drapeau d'erreur de recouvrement, un 
caractère n'a pas été lu par le CPU alors qu'un 
nouveau est arrivé. 

Est le drapeau d'erreur de format, un bit de stop 
valide n’a pas été détecté à la fin d'un caractère. 


Figure 3 


Le microprocessuer peut connaî- 
tre à tout instant l’état du 8251 
en venant lire le mot d'état ; le 
format du mot d'état est donné 
à la figure 4. 


ANALYSE DU SCHEMA 


Nous retrouvons le 8251 sur 
lequel arrivent les signaux sui- 
vants venant de l'AMSTRAD : les 
8 bits de données, les signaux 
d'écriture et lecture WR et RD, le 
bit d'adresse AO et le signal de 
chip select (CS8251) venant du 
décodeur d'adresse. Le bit. AO est 
relié à la broche C/D ; en se repor- 
tant à la figure 1, nous voyons 


COMMODORE 
THOMSON 
nombreux logiciels 
et livres 


1, rue Barbotin 
79300 BRESSUIRE 
Tél.: (49) 65.26.36 
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Enter hunt mode. Un niveau 1 autorise la recherche 
d'un caractère de synchro. 

Reset interne. Un niveau haut met le 8251 en attente 
d'un mot de commande. 

Request to send, force la broche RTS à zéro. 


Error reset, remise à zéro de toutes les erreurs. 
Send break character 

1 : force TXD à zéro 

0 : opération normale 

Validation de réception (1 = validée, O =invalidée). 
Data terminal ready, un niveau haut force la sortie DTR 
à zéro. 

Validation de transmission (1 = validé, O =invalidé). 


Figure 4 


que lorsqu'il sera à O, le CPU 
échangera des données avec le 
8251. 

Quand il sera à 1, le CPU échangera 
des commandes ou un mot d'état. 
Sur le 8251, nous trouvons aussi les 
différents signaux nécessaires à la 
liaison série ; nous utiliserons RXD 
qui est l'entrée des données série, 
TXD qui est la sortie des données 
série et les signaux vus plus haut : 
RTS, CTS, DTR, DSR. Nous travail- 
lerons en mode asynchrone et en 
général avec une vitesse identique à 


l'émission et à la réception, aussi 
nous avons relié RXC et TXC. L'hor- 
loge de transmission nous sera four- 
nie par un timer. Nous avons choisi 
un timer bien connu qui est le 8253 
de INTEL. Ce circuit est alimenté par 
une horloge à 1 MHz obtenue en 
divisant par 4 le 4 MHz du CPC à 
l’aide de deux demis LS 74. Le choix 
d’un timer nous permettra d'avoir 
toutes les fréquences désirées par 
programmation ; nous verrons, lors- 
que nous vous proposerons des 
exemples de programmation, que 
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et sera tolérable. Dans le prochain 
numéro, lorsque nous parlerons de la 
programmation de l'interface, nous 
dirons quelques mots des timers. Le 
choix du 8253 nous permet de nous 
réserver deux timers pour d’autres 
applications. 

Le décodeur d'adresses est consti- 
tué d’un 74 LS 11 et d'un 74 LS 
138, ce qui nous donne la table des 
adresses suivantes : 

OFBEOH compteur O 

OFBE1H compteur 1 

OFBE2H compteur 2 

OFBE3H mot de mode du 8253 
OFBE4H données du 8251 
OFBE5H mot de commande et d'état 
du 8251. 

La figure 5 donne le schéma de l'in- 
terface ; dans le prochain numéro, 
vous trouverez le film pour le circuit 
imprimé ainsi que des exemples de 
programmes et une application par- 
ticulière. 


74 LS O6 


Figure 5 


ComnEc TEUR 


#S£32 


CoNaCTEUR 
Dan. 


UTILITAI 


PAS 


e programme aurait pu être 

écrit en assembleur sous 
CP/M il est écrit en TURBO PAS- 
CAL afin de donner un exemple 
simple de programme PASCAL. 
La particularité de ce programme 
est de faire appel aux procédures 
et aux fonctions prédéfinies BIOS 
de TURBO PASCAL. 


Nous l'avons appelé SECDISC 
car il permet de lire n'importe quel 
secteur du disque, d’en modifier 
le contenu et de le réécrire. Le 
secteur de disque considéré n'est 
pas le secteur physique mais le 
secteur au sens enregistrement 


Denis 
BOURQUIN 


de 128 octets sous CP/M ; nous 
aurons donc pour notre utilitaire 
36 secteurs par piste, numérotés 
de O0 à 35 et les numéros de piste 
iront de O à 39. Tout ceci du fait 
de l'utilisation des points d'en- 
trées standard du BIOS sous 
CP/M. 

La procédure BIOS utilise deux 
paramètres de type entier : le pre- 


mier donne le numéro de la fonc- 


tion du BIOS désirée, le deuxième 
correspond à ce qui sera chargé 
dans les registres BC avant l'’ap- 
pel de la procédure. Nous profi- 
terons de ce programme pour 
ouvrir une parenthèse sur CP/M 


AL 


et son BIOS. 

Le système CP/ M est constitué 
de trois modules : 

— le CCP (Consol command pro- 
cess) qui est le module du proces- 
seur de commande console, c'est 
l'interface homme-machine ; 

— le BDOS (Basic disk operating 
system) qui est le système de 
gestion de base des fichiers du 
disque ; 

— le BIOS (Basic input output 
system) qui est le système des 
entrées-sorties de base. 


Le BDOS et le CCP constituent le 
noyau du système et sont four- 


ICT propose logiciels 

professionnels sur disquettes. 

ICI TEXTE : mixage de deux 

célèbres traitements de texte. 
590 F 

ICI TAB : tableur performant 

et interactif avec ICI TEXTE 
490 F 


ICI COMPT: comptabilité 890 F 
Gestion de fichiers, facturation, 
stocks, devis. 


CPC 464, 664, 6128, périphériques 
aux nouveaux tarifs 


ICI INFORMATIQUE 
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nis par DIGITAL RESEARCH et 
sont indépendants de l’environ- 
nement. Par contre, le BIOS est 
écrit par le constructeur de 
l'AMSTRAD et contient l’ensem- 
ble des programmes d'entrées- 
sorties (drivers) spécifiques à 
l'AMSTRAD. 

L'accès aux primitives du BDOS 
se fait par un appel à l'adresse 
0005H, le numéro de la primitive 
étant dans le registre C. L'accès 
aux primitives du BIOS se fait par 
un tableau des vecteurs de bran- 
chement situé à la base du BIOS. 
Il suffit de regarder le contenu de 
l'adresse 0001 pour retrouver 
l'adresse du BIOS, et ce contenu 
est l’adresse de BIOS +3. Pour 
AMSTRAD, le BIOS commence à 
l'adresse ADOOH. Le tableau en 
début du BIOS contient 17 vec- 
teurs de branchements dont voici 
les principaux : 

BIOS +9 : JMP CONIN lecture 
d'un caractère au clavier. 

BIOS + 12 : JMP CONOUT envoi 


progras SECDISC; 


(4 ce prograsse permet de lire et de modifier un secteur de 128 octets 


d'un caractère à l'écran. 

BIOS + 15 : JMP LIST envoi d'un 
caractère à l'imprimante. 

BIOS + 24 : JMP HOME position- 
nement sur la piste O du disque. 
BIOS + 27 : JMP SELDSK sélec- 
tion d’un disque. 

BIOS = 30 : JMP SETTRKinitiali- 
sation du numéro de piste. 
BIOS + 33 : JMP SETSEC initia- 
lise le numéro du secteur. 
BIOS + 36 : JMP SETDMA initia- 
lise l'adresse du buffer disque. 
BIOS +39 : JMP READ lecture 
d'un secteur disque. 

BIOS + 42 : JMP WRITE écriture 
d'un secteur. 


L'utilisation de ces primitives se 
fait en TURBO avec la procédure 
BIOS ; les numéros des fonctions 
utilisés dans cet exemple sont : 

8 : séléction du disque. 

9 : sélection de la piste. 
10 : sélection du secteur. 
11 :initialise l'adresse d’un buf- 
fer pour les données. 


elbl:=upcasele[b]); 
for i:=0 to 15 do 
if elb]=t{i] then a:=i#lé; 


sous CP/N, le secteur considerer correspond à l'enregistrement CP/M#) end; 


(# exesple d'utilisation: lecture de la piste 2 qui est le director) 
et recuperation d'un fichier deleter par resise de 00 en debut du 


descripteur a la place de ES#) 


type 
hexstr=stringl4); 
nhex=stringl2]); 


b:=bt]; 


elbl:=upcaselelb]); 
for i:=0 to 15 do 


12 : lecture du secteur considéré. 
13 : écriture du secteur consi- 
déré. 


Dans ce programme, le contenu 
du secteur est visualisé en hexa- 
décimal et en ASCII. A la ques- 
tion numéro de l’octet à modifier, 
il faut répondre par le numéro en 
décimal, l’octet est alors affiché 
dans la zone commentaire. En 
effet, dans l'exemple, nous utili- 
sons la possibilité de multifené- 
trage de l'AMSTRAD ; il y a deux 
zones d'affichage, la zone de dia- 
logue et la zone des contenus du 
disque. De nombreuses améliora- 
tions peuvent être apportées à ce 
programme pour le rendre plus 
agréable d'emploi, mais nous 
vous laissons le soin de l’amélio- 
rer pour vous permettre de vous 
familiariser avec le langage Pas- 
cal. 


if elb]=t{i] then a:=ati; 


conv:=a; 
end; 


procedure window(xl,y1,x2,y2:integer); 


begin 


const write(826,chrix1-1),chr(x2-1),chriy1-1),chr(y2-1)); 
t: array(0..15)0f char="0123456/89ABCDEF'; end; 
function hex(nuaber:integeribytes: integer):hexstr; procedure mindom0; 
begin 
‘: integer; windom(1,1,80,24); 
* hexstr; end; 
begin h[0]:=chribytestbytes); var 
for d:=bytestbytes downto 1 do begin 
h(d):=t{nuaber and 15]; 
nusber:=nusber shr 4; 


fonction: integer; 
parasetre:integer; 

buffer: array [1..128] of byte; 
end; a,b:integer; 


hex:=h; cchar; 
end; e:stringl2]; 


function convie:nhex):integer; procedure affichage; 
var begin 
i,b,a:integer; window(1,1,80,18); 
begin cirscri 
a:=0;b:=0; for a:=0 to-7 do 
if lengthie)=2 then begin 
begin for b:=1 to 16 do writelhex(buffer[at16#b],1)," "); 
b:=1; for b:=1 to 16 do 


begin 

if buffer[a#16+b1($20 then writel'.’) 

else if bufferlatiétb])$7e then writel’.') 
else writelchribuffer[atlétb])); 


end; 

writeln; 

end; 
end; 


begin 
ces'l'; 
cirscr; 
while c='L' do 
begin 
mindon(1,19,80,24); 
cirscr; 
write ['disque 0/1 ? ’)ireadiniparametre); 
fonction:=8; 
bios{fonction,parasetre); 
writel'numero de piste ? ‘)ireadin(parametre); 
tonction:=9; 
bios(fonction,parasetre); 
writel’nusero de secteur ? ‘)ireadlniparametre); 
fonction:=10; 
bios(fonction,parametre); 
parasetre:=addr(buffer(1)); 
fonction:=11; 
bios(fonction,parasetre); 
fonction:=12;a:=bios(fonction,parametre); 
affichage; 
nindow(1,19,80,24); 
cirscr 
writel'desirez-vous modifier ce secteur? '); 
readln (clic:=upcase(c); 
while c='0" do 
begin 
writel"nusero de 1 octet a modifier’); 
readin (a); 
writel'ancienne valeur: ’,hexibuffer(a),1)," 
readin (e); 
bufter{a]:=convie); 
affichage; 
window(1,19,80,24);cirscr; 
writel'autre modification: ’); 
readln (c); 
c'=upcase(c}; 
end; 
cirscr; 
writel'E: pour ecrire ce secteur, Lpour lire un 
writel’ autre lettre pour fin’); 
readln(c); 
c'=upcase(c); 
if c='E" then 
begin 
fonction:=13; 
bios(fonction,parasetre); 
cirscri 
write l'desirez-vous lire un autre secteur ‘); 
readln(c)ic:=upcase(c); 
if c=’0" then c:="L'; 
end; 
end; 
windou0; 
cirscri 
end, 


nouvelle valeur: ’}; 


nouveau"); 


UN LOGICIEL PASSIONNANT QUI 
LANCE UN NOUVEAU STYLE DE JEU!!! 


prochainement 
CPC 


BUGS BUSTER 


Votre programme est attaqué 
par les monstrueux bugs et vous 
voyez votre dessin ou sa musique 
s'altérer. Prenez vos armes et en 

route sur le circuit imprimé de votre 
micro pour visiter les circuits et 
détruire ces bugs avant que votre 
programme soit inutilisable. 
Un jeu entièrement neuf dans son 
thème et sa réalisation qui 
vous passionnera. 


FREE GAME BLOT - Cidex 205 - 38190 CROLLES 


[] Je désire recevoir le logiciel «BUGS BUSTER» 
Je joins à ma commande un chèque de 
125,00 + 15,00 F pour frais de port 


[1 Je désire recevoir le catalogue couleur des 
titres FREE GAME BLOT 


our trier les données stockées 

dans un fichier, il est néces- 
saire de charger celles-ci en 
mémoire (dans un tableau), d'en 
faire le tri suivant un ou plusieurs 
critères, puis de réenregistrer le 
tableau dans le fichier. 


Il'existe plusieurs méthodes de tri 

(par sélection, par échange, 

dichotomique, etc.), leur effica- 

cité reposant sur la longueur et la 

complexité du progamme.et sur- 

tout sur le temps d'exécution. 

Les moins efficaces nécessitent 

un temps proportionnel au carré 

du nombre d'éléments à trier 

(NxN), les plus rapides à 

N+log{(N). 

Nous allons décrire, dans ce 

numéro, trois méthodes dont 

vous pourrez comparer les perfor- 

mances : 

— le tri par sélection, 

— le tri par dichotomie, 

— le tri par la méthode de Shell- 
Metzner. 

Dans le prochain numéro, nous 

étudierons : 

— le tri par arborescence, 

— le tri rapide (Quick-Sort) 


D'après les résultats sur les 3 
échantillons de nos exemples, le 
tri par dichotomie dont on dit 
grand bien, n'est pas d'une 
grande efficacité lorsque le fichier 
s'agrandit et il est alors préféra- 
ble de choisir la méthode de 
Shell-Metzner. 
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30 150 300 nombre 


d'articles 


TRI PAR SELECTION 


Dans cette méthode, on prend un 
élément de référence. On le 
compare successivement à cha- 
cun de ses suivants. Si l'élément 
de référence est plus petit, c'est 
bon. Sinon, on l'échange avec le 
suivant concerné. 


Arrivé au dernier suivant, l’élé- 
ment de référence contient le 
plus petit élément du tableau. On 
prend alors son suivant comme 
élément de référence, et ce 
jusqu'au dernier. 


de 

= 

LS A 
2 


Cette méthode, facile à program- 
mer, ne peut être utilisée que 
pour de petits fichiers. 


TRI PAR DICHOTOMIE 


Le principe est le suivant : 

On considère que N éléments 
sont rangés dans l’ordre voulu 
(croissant pour l'exemple). On 
souhaite insérer un nouvel élé- 
ment. 

Pour cela, nous prenons l'élément 
du milieu et nous le comparons 
à l'élément nouveau. Si le nouvel 
élément est plus petit, sa place 
sera dans le sous-ensemble gau- 
che, sinon dans le sous-ensemble 
droit. On recommence l’algo- 
rithme jusqu’à ce que la gamme 
couverte par le sous-ensemble 
corresponde à 1. Nous connais- 
sons alors la place à laquelle il 
faut ranger le nouvel élément. 


10 REM TRI PAR SELECTION 
20 REM DU TABLEAU D$ 

30 FOR I=1 TO M-1 

| 40 FOR Jz+i TO M 


| 50 1F D$(J)<D$(1) THEN AAS=D$ (J):D$(J)=D 


$(1):D$(1)=AAS 
60 NEXT J 

70 NEXT 1. 

80 RETURN 


| #4 {I PAR DICHOTOMIE 


os 10 . 
“à R=0:D=N:6=0: 2=D-6:C=1 


) € DS) THEN D=R:C=-1:G0T0 1 


Nous devrons alors décaler tous 
les éléments qui suivent d’une 
position et ranger dans la place 
libérée le nouvel élément. 
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nouvel 
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TRI PAR LA METHODE 
DE SHELL-METZNER 


L'ensemble des données est suc- 
cessivement décomposé en 
sous-ensembles de plus en plus 
petits (divisé par deux à chaque 
itération). Un élément d’un sous- 
ensemble est alors comparé à 
son correspondant du sous- 
ensemble suivant, avec échange, 
s’il y a lieu et, dans ce cas, on 
remonte au sous-ensemble pré- 
cédent pour remise en ordre 
éventuelle et ainsi de suite 
jusqu'au premier sous-ensemble. 
Le travail est terminé lorsque le 
sous-ensemble ne comporte plus 
qu'un élément. 

Par cette méthode, le n° élément 
d'un sous-ensemble est toujours 
inférieur n° élément du sous- 
ensemble suivant. 
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Pour utiliser cet algorithme pour 
faire un tri, il suffit de ranger les 
deux premiers éléments. On 
insère ensuite chacun des élé- 
ments de la suite en appliquant 
la procédure décrite. 

Cette méthode est évidemment 
plus efficace que la précédente, 
mais elle reste largement insuffi- 
sante lorsque le fichier dépasse 
une centaine d'articles. 


Exemple : 
Départ 31 25 17 38 56 16 22 30 
QE CE 


lepasse { 31 16 17 20 56 25 22 38 
QE pu) 
2° passe 17 31 22 56 
22 31 
Ù 16 


R. 2° passe 


3° passe 16 17 20 22 25 31 38 56 


Le tri par cette méthode est effi- 
cace et le programme, écrit en 
Basic, prend peu de place. Pour 
un tableau de 300 éléments, la 
méthode de Shell-Metzner est 6 
fois plus rapide que la méthode 
par dichotomie ! 


10 REM TRI PAR SHELL-METZNER 

20 REM DU TABLEAU D$ 

30 P=M 

40 P=INT(P/2) 

50 IF P<1 THEN RETURN 

60 DEB=1:FIN=M-P 

70 R=DEB 

BD C=R+P:IF D$(R)<=D$(C) GOTO 100 

90 AAS=D$(R) :D$(R)=D$(C) :D$(C)=AA$:R=R-P 
:IF R>0 GOTO 80 


100 DEB-DEB+1:1F DEB>FIN THEN GOTO 40 EL 
SE GOTO 70 
110 RETURN 


90 G=R:C=1 

100 Z=D-6:1F 21 THEN GOTO 60 

110 IF C=1 THEN R=R#1 

120 AA$=D$(N) 

130 FOR I=N TO 1 STEP -1 

140 IF R=I THEN D$(I)=AA$:GOTO 160 
150 D$(1)=D$(I-1):NEXT I 

160 NEXT N 

170 RETURN 
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RES 


EE AUCH 


3 MODE 1:MEMORY &7FFF 


10 FOR f=52768 TO Z:2802 


20 READ a:FOKE'+f,a 
30 NEXT ff 


40 CALL &8000:FRINT"'Entrez CALL 8&800B:RUN 


30 NEW 


» nom’ EL 


100 DATA 33,41,128,6,179,17,29,128,195,2:9,188,33, 
Su tebs 17:50, 0,:1:50,0:195,233.108,28,35.128,199,25 


6,188,205,24,187,195,3,187 


MOUVEMENT RALENTI 
par Warren Smith (c) Sémaphore 
Logiciels. 


N'avez-vous jamais souhaité pou- 
voir créer un moment de pause 
dans l'exécution d'un programme 
afin d'en analyser le développe- 
ment, les mouvement ou tout sim- 
plement pour aller prendre un café 
si un jeu ne possède pas de pause ? 
MOUVEMENT RALENTI utilise 
une des nombreuses routines 
magiques de la ROM de l'Amstrad 
pour intervenir sur le déroulement 
d'un programme. L'horloge interne 
de l'Amstrad envoie une interrup- 
tion toutes les x/secondes. Le pro- 
gramme proposé ici, utilise des 
routines qui permettent d'intro- 
duire un petit programme en 
assembleur, dans MOUVEMENT 
RALENTI ce programme attend 
que l'on presse une touche. Ces 
routines permettent en outre de 
décider tout les combien d'inter- 
rupts le petit programme sera 
appelé, ici environ toutes les deux 
secondes. 

Les routines utilisées par Ralenti 
sont publiées dans le manuel 
d'exploitation de l'Amstrad. Ces 
routines sont : 


déclare 
RALENTI 
comme étant 
un programme 
d'interruption 


KL ADD TICKER :met RALENTI 
sur la liste des 
événements en 
cours, cette 
routine est 
appelée après 
chargement de 
registres par 
CALL & 800B 
dans RALENTI. 


KL INIT EVENT: 


KL DEL TICKER : enlève CALL &800B enclenche le 
RALENTI dela, RALENTI 
liste d'événe-  CALL &8017 annule le RALENTI. 
ments, ceci 
veut dire que #:::: 
RALENTI est 
mis en sus- 


pens, cette rou- 
tine est appelée 
après  charge- 
ment de regis- 
tres par CALL & 
8017 dans 
RALENTI. 


Lorsque le microprocesseur reçoit 
un interrupt, il arrête le programme 
en cours et exécute les routines se 
trouvant sur la liste d'événements. 

RALENTI qui attend la pression 

d'une touche fait partie de cette 

liste. La fréquence des appels à 

RALENTI peut être modifiée 

comme suit : 

- Une fois le programme tapé et 
sauvé, chargez-le avec LOAD au 
lieu de RUN puis éditez les DATA 
en y changeant les deux valeurs 
50 par deux autres (elles doivent 
rester semblables) entre 25 et 
255. Sauvez et exécutez cette 
version du programme. 


"th 
Pour utiliser MOUVEMENT '} 
RALENTI, tapez le programme et{:f 
sauvez-le sur une cassette ou dis- # 
quette avec le nom RALENTI.E 
Exécutez RUN''RALENTI. ÿ 
Entrez ce que l'écran vous 
demande puis exécutez RUN «nom 
du programme à charger» ENTER. 
Chaque fois que le chargement 
s'arrête, il faut taper sur une tou- 
che pour le relancer. C'est l'effet du 
programme qui se manifeste déjà. 
Dans un programme dont vous 
pouvez interrompre l'exécution, : 
(non protégé) vous pouvez encien- 
cher RALENTI à volonté : 


H 9 7 


I NN = 


2 1h 


Il existe, je l'ai rencontré dans 
son antre, au fin fond de la cam- 
pagne genevoise, à La Plaine. 
Un coin de cambrousse perdu 
dans le vignoble tout au fond du 
canton. Un antre de baba-cool, 
tentures, pénombre, vieilles éta- 
gères débordant d'instruments 
bizarres. 

Une mine de baba-cool, cheveux 
qu'il vient tout juste de couper, 
barbe poivre et sel, des shorts et 
des sandales, une vague tunique. 
Aucun doute. Mais ce baba-là est 
de l'espèce des «computer 
freak». Aussi rare dans nos 
contrées qu'elle abonde sur les 
rivages de Californie. 


Qu'est-ce qui a bien pu pousser 
Jean-Pierre Cardinaux sur la 
pente glissante de la micro-infor- 
matique ? Lui, écolo de sensibi- 
lité, parfait produit des années 
soixantes et ex-attaché aux affai- 
res aborigènes en Australie. 


C'est une expérience pédagogi- 
que qui va lui inoculer le virus. Il 
est question de tester les capaci- 
tés de l'ordinateur dans le sys- 
tème éducatif. A l'époque, on ne 
parle pas d'initiation obligatoire. 
Pour savoir de quoi il parle, Jean- 
Pierre Cardinaux achète un Spec- 
trum. Rapidement, il y prend 
goût et noue des contacts dans le 
milieu fertile des «computer 
freaks» britaniques et français. Il 
se crée des réseaux d'amitiés, 
une communication nourrie s'ins- 
talle. Bientôt, on s'échange des 
logiciels. Plus exactement, dans 
un premier temps, Jean-Pierre 
adapte en français les petites 
merveilles concoctées par les 
anglophones. 

Il faut bientôt fonder une société, 
Sémaphore Logiciels, pour offi- 
cialiser tout ça. Mais les princi- 
pes restent les mêmes : convivia- 
lité d'abord. La plupart des rap- 
ports se déroulent sur un mode de 
troc et d'amitié. On échange des 
services plus que des sous, ce 
que bien des distributeurs au sens 
commercial «traditionnel» ont eu 
de la peine à comprendre, plus, 
accepter. 


Sémaphore et son fondateur, 
n'ont pas de pareil pour dégotter 
le meilleur rapport qualité/prix. 
Alors pensez que quand l'Ams- 


trad sort, ils sont sur les rangs. Le 
QL, un temps courtisé, est rangé 
sur un rayon, et dorénavant, les 
CPC d'AMSTRAD deviennent 
leur cheval de bataille. 

La passion de la micro, qui anime 
Jean-Pierre Cardinaux, le pousse 
à découvrir sans cesse, et à adap- 
ter les logiciels les plus pratiques, 
les accessoires miraculeux, les 
interfaces indispensables. Et 
lorsqu'ils n'existent pas, il les 
invente. Lui ou quelques uns de 
ses copains, ou les jeunes qui 
viennent pianoter sur 


Un service expert. 
Lorsque vous achetez votre appa- 
reil dans une boutique, vous trou- 
vez au mieux un vendeur compé- 
tent, au pire un bateleur de super- 
marché qui sait en gros faire la dif- 
férence entre une machine à laver 
et un téléviseur. Mais de là à savoir 
pourquoi votre machine à écrire 
EP44 qui sert d'imprimante ne 
peut, malgré son port RS232, se 
brancher sur le micro de vos rêves, 
équipé lui, d'une sortie parallèle... 
il Y a un monde. Et inutile de lui 
demander d'adapter votre logiciel à 
vos besoins particuliers. 

Or, ces combines impossibles, ces 
tours de force de débrouillardise et 
de génie informatique, Jean-Pierre 
Cardinaux en est coutumier. A 
l'aide d'une interface développée 
par un ami anglais, d'une broche 
standard et d'un point de soudure, 
il branchera votre imprimante sur 
l'ordinateur. Alors que tous les 
vendeurs de la place, et même de 
France, n'avaient qu'une réponse à 
la bouche : «changez de matériel». 
Oui, mais le branchement ce n'est 
pas tout. Encore faut-il les faire 
tourner ensemble, mais ici aussi, 
c'est semble-t-il un jeu d'enfant 
d'introduire dans son traitement de 
texte, les instructions ad hoc et 
l'imprimante se conformera aux 


à 


_ DANbne 
LA 


moindres désirs exprimés par votre 
ordinateur. 


La CAO sur AMSTRAD 


Qu'il s'agisse de crayons optiques, 
de logiciels de CAO (mais oui, tour- 
nant sur AMSTRAD, et étonnant 
de définitions avec ça), de fichiers, 
de graphismes, ou de jeux de 
réflexion, Sémaphore pourrait bien 
avoir de quoi vous brancher... 
Reste que ce n'est 
pas toujours 


facile de suivre l'évolution du mar- 
ché, ses brusques accélérations, et 
ses changements de machines. A 
chaque fois, il faut reconfigurer les 
programmes. Et le côté folklo de 
l'organisation de Sémaphore se 
paie parfois au niveau des délais... 
mais on garde le sourire. 
Aujourd'hui, l'échange n'est plus à 
sens unique. Non seulement de 
Genève, partent vers la France un 
certains nombre de produits tra- 
duits de la langue de Shaekes- 
peare, mais certains logiciels du 
crû, s’en vont à la conquête de Lon- 
dres. Ceci tout simplement, sans 
tapage. 

Bien utilisés, un simple Spectrum, 
où un Amstrad peuvent faire des 
choses étonnantes. C'est un des 
drames de l'informatique de 
l'avoir, non pas oublié, mais de 
manquer de Jean-Pierre Cardinaux 
pour montrer la voie. Hormis dans 
certaines régions privilégiées, 


comme la Californie ou la Grande- 
Bretagne. 
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Denis BOURQUIN 


près avoir parlé du rôle de 

l'assembleur, de la syntaxe, 
des pseudo-instructions, nous 
allons nous intéresser aux ins- 
tructions du Z80. Dans le premier 
numéro, nous avons donné une 
description du Z80 ; rappelons 
que les principaux constituants 
d'un microprocesseur sont l'unité 
arithmétique et logique (UAL) qui 
sera chargée d'effectuer les opé- 
rations et les registres qui sont 
des mémoires internes au micro- 
processeur. 


A partir de ces deux blocs, nous 
pourrons déduire déjà deux grou- 
pes d'instructions, les- instruc- 
tions de chargement et de trans- 
fert, et les instructions arithmé- 
tiques et logiques. Nous ajoute- 
rons à cela un groupe d'instruc- 
tions de branchement et de saut, 
un groupe d'instructions pour les 
entrées-sorties, un groupe pour 
les manipulations de blocs de 
données et un groupe pour les 
contrôles du processeur. Dans ce 
numéro, nous ne.nous intéresse- 
rons qu'aux instructions de trans- 
fert. L'UAL du Z80 est une unité 
arithmétique qui traite des don- 
nées codées sur 8 bits, donc la 
plupart des registres de ce micro- 
processeur sont des registres 8 
bits. Il peut, malgré tout, manipu- 
ler des données 16 bits grâce à 
des registres 16 bits et aussi 
grâce à la possibilité de regrou- 
per par paires ces registres 8 bits. 
Nous allons donc trouver les opé- 
rations de transfert s’effectuant 
sur des données 8 bits et des 


58 


@ INITIATION 
A L'ASSEMBLEUR 


dd 


opérations de transfert de don- 
nées 16 bits. 

Le mnémonique du code opéra- 
tion commun à toutes les instruc- 
tions de chargement est : LD. Le 
format d’une instruction de char- 
gement est le suivant : 


LD DESTINATION,SOURCE 


La destination sera un registre du 
Z80, une case mémoire ou une 
valeur immédiate. La source sera 
un registre, une case mémoire ou 
une valeur immédiate. Notons 
que dans une instruction opérant 
entre une source et une destina- 
tion, la destination figure avant la 
source. 

Avant de parler des différents 
types d’adressage rencontrés 
dans les instructions de charge- 
ment, il est peut être bon d’ou- 
vrir une parenthèse sur les 
notions d’adressage. 

Dans notre AMSTRAD, les don- 
nées seront ou dans un registre 
du microprocesseur, ou dans une 
case mémoire. Pour accéder à 
une donnée dans un registre, 
nous appelerons le registre par la 
lettre ou les lettres le représen- 
tant, par exemple : LD B,A trans- 
fère le contenu du registre À dans 
le registre B, c'est ce que l’on 
appelle l'adressage registre. Dans 
ce cas, pour le microprocesseur, 
l'adresse du registre considéré 
est contenue dans le code opé- 
ration. Pour accéder à une don- 
néedans une case mémoire, le 
Z80 de l' AMSTRAD fournit sur le 
bus d'adresse l'adresse de cette 
case. Cette adresse pourra être 


fournie directement dans le pro- 
gramme, elle suit alors le code 
opération, c'est l’adressage 
étendu. En utilisant un assem- 
bleur, nous écrirons, par exem- 
ple : LD (TOTO),A : ce qui provo- 
quera le transfert du contenu du 
registre À dans la case mémoire 
appelée TOTO ; cette case aura 
été au préalable réservée par une 
des pseudo-instructions vues pré- 
cédemment, par exemple avec 
ZEN. 


ORG 1000H 
TOTO: DB (e) 


Dans cette exemple, TOTO est 
une case mémoire qui est un 
octet et a pour adresse 1000H. 
L'adresse d’une case mémoire 
pourra aussi ne pas figurer direc- 
tement dans le programme, mais 
elle pourra être déduite du 
contenu d'un registre (les adres- 
ses sont codées sur 16 bits et 
donc les registres considérées 
pour les adresses seront des 
registres 16 bits), lorsqu'une 
case mémoire est adressée à tra- 
vers un registre, nous avons 
l'adressage indirect par registre ; 
il est possible aussi d'ajouter au 
contenu de certains registres un 
déplacement supplémentaire, 
l'adresse est alors le contenu du 
registre plus ce déplacement qui 
figure derrière le code opération, 
c'est l’adressage indexé. 

Pour les instrucitons de charge- 
ment, nous allons trouver les dif- 
férents types d’adressages sui- 
vants : 


L'ADRESSAGE IMMEDIAT 


Chaque registre du Z80 peut être 
chargé avec une valeur numéri- 
que. Exemple : LD A,10 charge 
la valeur 10 dans le registre A. 
LD B,OFEH charge la valeur hexa- 
décimale OFEH dans le registre B. 
L'assembleur codera cette ins- 
truction de la manière suivante : 


code opération valeur immédiate 


Voici un exemple de codage tel 
qu'il apparaîtra sur un listing 
après assemblage : 


3E 10 LD A,10H 
06 01 LD B,10 
26 00 LD H,0 
L'ADRESSAGE 


IMMEDIAT ETENDU 


Nous avons vu que les registres 
peuvent être regroupés par deux 
pour former un registre 16 bits ; 
cette paire de registres peut être 
chargée avec une valeur immé- 
diate en une seule instruction : 
exemple LD BC,1024. Le regis- 
tre B contiendra les poids forts de 
cette valeur, soit 4, et le registre 
C les 8 bits de poids faibles, soit 
O car 1024 = 400H. Le codage de 
cette instruction est le suivant : 


partie basse partie haute 
Sd 


valeur immédiate 


3° octet 


1er octet 2° octet 


Remarquons que le Z80 stocke 
les données 16 bits en inversant 
l'octet de poids faible et l’octet 
de poids fort. 


L'ADRESSAGE 
PAR REGISTRE 


ll'est possible de charger un quel- 
conque des registres du Z80 avec 
un autre registre. Exemple 

LB B,C. Cette instruction trans- 
fère le contenu du registre C dans 
le registre B. Les codes opération 
des instructions de transfert de 
registre à registre tiennent sur un 
octet, sauf pour deux registres 
particuliers du Z80, les registres 
let R que nous verrons plus tard. 


L'ADRESSAGE ETENDU 


Ce mode d'adressage peut aussi 
être appelé adressage direct. 
Dans ce cas, l’un des opérandes 
est une case mémoire spécifiée 
directement par son adresse, 
l'autre opérande ne peut être que 
le registre A. 

Exemple : LD A,(4000A). Cette 
instruction provoque le charge- 
ment du registre À avec le con- 
tenu de l’octet d'adresse 4000H 
; Si, par exemple, en 4000H, 
nous avons 10 avant l'exécution 
de cette’ instruction, après son 
exécution le registre À contiendra 
10. Bien sûr, la case mémoire 
d'adresse 4000H contient tou- 
jours 10 après l'opération. 
Autre exemple : LD (4000H),A. 
Inversement, ici, c'est le contenu 
du registre À qui sera transféré 
dans la case d'adresse 4000H. 
Le codage de cette instruction est 
le suivant : 


code 
opération 


partie basse partie haute 
a OR. 
adresse de la case mémoire 


1er octet 2° octet 3e octet 


Exemple de listing : 


32 00 40 LD (4000H),A 
3A 00 40 LD A,(4000H) 
L'ADRESSAGE 


INDIRECT PAR REGISTRE 


Dans ce type d’adressage, une 
paire de registres 16 bits se 
comporte comme pointeur 
d'adresse de la mémoire. 
Exemple : LD A,(HL). Cette ins- 
truction effectue le chargement 
du registre A avec le contenu de 
la case mémoire dont l'adresse 
est dans la paire de registres HL. 
La notation entre parenthèses 
indique que le contenu des regis- 
tres HL doit être utilisé comme 
pointeur sur l'emplacement 
mémoire, il en était de même 
dans l'exemple précédent où 
4000H pointait un emplacement 
mémoire : LD (4000H),A. 
Exemple : 

LD HL,4000 H 

LD A,(HL) 

Ces deux instructions ont pour 
effet de prendre le contenu de la 


case mémoire d'adresse 4000H 
et de le mettre dans le registre A. 
Les paires de registres HL, BC, 
DE peuvent être utilisées pour les 
instructions de chargement utili- 
sant ce mode d'’adressage et 
ayant le registre À comme 
deuxième opérande. Lorsque le 
deuxième opérande sera un quel- 
conque des autres registres 8 
bits, seule la paire de registres HL 
peut être utilisée. Ces instruc- 
tions sont codées sur un seul 
octet. 


L'ADRESSAGE INDEXE 


Dans ce type d’adressage, l’un 
des opérandes est une case 
mémoire pointée par le contenu 
d'un des registres 16 bits d'index 
auquel il faut ajouter un déplace- 
ment codé dans le troisième octet 
de l'instruction. Les registres 
d'index sont IX et IY. Le dépla- 
cement est un nombre signé en 
arithmétique en complément à 
deux. La notation pour cet opé- 
rande est : (IX +d) ou (IY +d). 
Exemple : LD A,(IX+10). On 
prend le contenu du registre d'in- 
dex IX, on y ajoute le déplace- 
ment 10, le résultat est l'adresse 
de la case mémoire dont le 
contenu sera transféré dans le 
registre A. Ces instructions sont 
codées sur trois octets, deux 
pour le code opération et un pour 
le déplacement. 

Nous venons de voir les opéra- 
tions de chargement s’effectuant 
sur des données 8 bits, nous y 
avons ajouté une opération de 
chargement sur 16 bits d’une 
valeur immédiate pour faciliter la 
compréhension des exemples. 
Voyons maintenant les opéra- 
tions de chargement de données 
16 bits en général. Nous retrou- 
vons les mêmes types d’adres- 
sage. 


L'ADRESSAGE IMMEDIAT 


Les paires de registres BC, DE, 
HL peuvent être chargées avec 
une valeur 16 bits ainsi que les 
registres 16 bits du Z80 : SP, IX, 
lY. 

Exemple : 

LD HL,4000H 

LD SP,0B800H 

LD IX,10 
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L'ADRESSAGE ETENDU 


Deux cases mémoires adjacentes 
peuvent être chargées avec une 
valeur 16 bits provenant d'une 
paire de registres ou d’un regis- 
tre 16 bits. 

Exemple : 

LD (4000H),HL 

LD (3000H),IX 

Après l'exécution de la première 
instruction, la case mémoire 
d'adresse 4000H contiendra l’oc- 
tet de poids faible, soit le contenu 


du registre L, et la case mémoire 
d'adresse 4001H contiendra l’oc- 
tet de poids fort, soit le contenu 
du registre H. 

Inversement, nous pourrons 
charger une paire de registres ou 
un registre 16 bits avec le 
contenu de deux cases mémoires 
adjacentes. 


L'ADRESSAGE REGISTRE 


Seul le registre 16 bits SP peut 
être chargé par un autre registre 


16 bits qui ne peut être que le IX, 
IY ou la paire HL. 

Exemple : 

LD SP,IX 

LD SP,IY 

LD SP,HL 

Nous ne parlerons pas, dans ce 
numéro, de l’adressage indirect 
par registre pour des données 16 
bits, car seul le registre SP sert 
dans ce type d'instruction qui, de 
plus, n'utilise pas le mnémonique 
LD ; nous les verrons lorsque 
nous aborderons la notion de pile. 


“omslesienn ss 


L' immense majorité des pos- 

sesseurs d'AMSTRAD ne 
connaît pas le langage machine 
(ou l'assembleur). Or, certains de 
ces programmes publiés sont 
vraiment alléchants ; mais 
comment les entrer au clavier ? 
et sans rien comprendre à cette 
technique ? 


Nous avons donc créé un pro- 
gramme en Basic qui se chargera 
de tout, très rapidement, et en 
vous mettant à l'abri des erreurs. 
Pour résumer, vous lancez notre 
programme Basic, puis vous 
entrez au clavier le contenu 
d'UNE SEULE des colonnes du 
listing en assembleur. Une page 
en assembleur est donc beau- 
coup plus vite ‘’recopiée”’ au cla- 
vier qu'une page de Basic !... La 
frappe terminée, le programme se 
charge de la syntaxe pour la sau- 
vegarde sur cassette ou dis- 
quette. Répétons encore que 
notre programme n'est pas un 
‘’Assembleur'" mais plutôt un 
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LANGAGE 
MACHINE 


Michel ARCHAMBAULT 


‘’Entreur'" de listings, conçu pour 
ceux qui ignorent le langage 
machine, qui continueront à 
l'ignorer, mais qui veulent profi- 
ter de ce genre de programme 
même sans rien y comprendre. 
Toutefois, afin de ne pas ‘‘taper 
idiot'”, il est essentiel de possé- 
der ces quelques notions super- 
ficielles : 


QU'EST-CE UN 
PROGRAMME EN 
LANGAGE MACHINE ? 


C'est une suite continue de nom- 
bres, de O à 255, qui ont été 
logés quelque part dans la 
mémoire. Par exemple de 
l'adresse 32901 à l'adresse 
32984 : sa longueur est donc de 
84 octets et son ‘‘’Adresse 
départ'’ est 32901. Pour lancer 
ce programme, ce n'est pas RUN, 
mais CALL 32901. OK ? 
Supposons que cette série de 84 
nombres commence par 1965, 6, 
152, etc. Il faudait pour les loger 
en RAM faire : 


| 


M 


Q 


77) 
\ 
A 


POKE 32901,1Y9:FUKE 32902, 
6G:POKE 32903,152, etc. Fasti- 
dieux, non ? Rassurez-vous, 
notre programme demande la 
fameuse adresse de départ, puis 
vous n'entrez que les nombres 
(ou valeurs) à ‘’poker'" en RAM ; 
il se charge de l'ordre POKE à 
l'adresse à chaque fois augmen- 
tée de 1. Super facile. Et ce 
jusqu'à la fin du listing. Votre rou- 
tine est en place, même après un 
NEW, elle attend d'être appelée 
par le CALL adresse départ ; tout 
ira alors très vite ; environ 50 fois 
plus rapide que le Basic. 

À quoi correspondent ces nom- 
bres entrés ? Certains sont des 
codes de commande pour le 
microprocesseur Z80 de l'AMS- 
TRAD, très souvent suivis par 
des paramètres qu'il exige (des 
adresses, des nombres ; comme 
pour les fonctions Basic). 


LE LISTING 
EN ASSEMBLEUR 


Celui qui a conçu le programme 


en question n'a pas entré à la 
queue-leu-leu cette suite de 
codes et de paramètres ; ce serait 
trop difficile pour se rappeler le 
numéro de code de chaque fonc- 
tion. Il s’est servi d'un pro- 
gramme utilitaire appelé un 
‘’Assembleur'" où il entre au cla- 
vier le mot (en lettres) qui sont les 
initiales de chaque fonction. 
Exemples : LD, ADD, JP, JR, EX, 
etc., suivis de ses paramètres 
numériques (comme en Basic). 
C'est l’Assembleur qui traduit ces 
‘’MNEMONIQUES''" en leurs 
codes machine respectifs, sur- 
veille la syntaxe et met tout ces 
nombres dans le bon ordre. Mais, 
c'est aussi ce même programme 
Assembleur qui en fait le listing 
sur imprimante, celui-là même qui 
est reproduit photographique- 
ment sur la page de la revue. Et 
c'est là que ça se gâte un peu. 
En effet, chaque Assembleur a 
une présentation de listing qui lui 
est propre, et à nous de nous y 
retrouver. Heureusement, ce 
n'est pas difficile : 


D'abord, sachez que les valeurs 
entrées sont TOUJOURS en 
hexadécimal, et notre série de 
tout à l'heure 195,6,152,.. est en 
fait sous la forme C3,06,98,... 
toujours DEUX caractères (pas 
gênant). De gauche à droite, nous 
trouvons généralement les colon- 
nes suivantes : 

1) Les adresses mémoire. La plu- 
part du temps en hexadécimal, 
sur deux octets, donc 4 caractè- 
res. Seule la première (départ) 
nous intéresse. 

2) Les valeurs à entrer. C'est la 
nôtre ! Souvent, il y a 1,2, 3 ou 
4 octets à la file. Exemple pour 
CD7DBC, il faudra entrer séparé- 
ment CD puis 7D puis BC. On les 
appelle généralement les 
‘CODES OBJETS”. 

3) Ce qu'a tapé le programmeur, 
des lettres (mnémoniques) et des 
valeurs en hexa, on s’en moque. 
4) Des commentaires (des REM), 
on s'en moque également. 


Voyons maintenant quelques 
variantes de présentation de lis- 
tings. 

— À gauche, on peut trouver une 
numérotation des lignes du lis- 
ting. Sans intérêt. 


— Une ‘préface’ qui définit 
l'adresse départ, l'adresse d'exé- 
cution (généralement, c’est la 
même) et des noms de baptême 
de sub-routines avec leurs adres- 
ses. On s'en moque. 

— Une colonne des adresses tra- 
duites en décimal (en plus de 
l'hexadécimal). C'est rare. 


Votre unique travail est d'identi- 
fier la colonne adresse (en notant 
la première) et la colonne don- 
nées (ou valeurs). C'est tout, 
maintenant, on passe au Basic. 


LE PROGRAMME 
MACHPOKE 


Pourquoi est-il si long pour un 
‘’POKAGE"" aussi simple ? Pour 
éliminer toutes erreurs d’étourde- 
rie lors de la frappe. Elles sont 
faciles et seraient fatales et très 
difficiles à localiser ensuite. La 
moindre erreur provoquera un 
plantage brutal du système, 
après le CALL, et pas de ‘’Syntax 
Error in &982B''. De quoi 
disposons-nous ? 

— D'un écran de saisie super 
clair et sans équivoque, 

— de la possibilité de lister à 
l'écran ou sur imprimante ce que 
vous avez déjà entré, pour véri- 
fication, 

— de la possibilité de corriger vos 
erreurs, 

— de la sauvegarde sur cassettte 
ou disquette de votre saisie, 
même si elle n’est pas terminée 
ni vérifiée, 

— du chargement de la saisie 
(LOAD) pour suite ou correction. 
— et enfin, après l'avoir sauve- 
gardé, de pouvoir essayer le pro- 
gramme par CALL. 


Confort + sécurités = fiabilité. 


Il n'y a pas de danger de loger par 
POKE des valeurs erronées en 
mémoire, pourvu que vous ne 
lanciez pas par CALL. Toutefois, 
nous avons prévu le cas où l’em- 
placement de ce programme 
machine dans la mémoire gêne- 
rait le Basic : adresse départ trop 
basse qui viendrait dans le Basic, 
ou adresse finale trop haute qui 
irait écraser les variables utilisées 
par le Basic, ou pire encore, dans 
la zone mémoire de l'écran. D'où 


un deuxième programme baptisé 
MACHDIM. Rassurez-vous, il 
sera vite fait : c'est MACHPOKE 
avec seulement quelques petites 
modifications (voir liste). 


LE PROGRAMME 
MACHDIM 


Identique à MACHPOKE, sauf 
que les valeurs entrées ne sont- 
pas POKEES mais provisoirement 
mises au tableau DIM. Un autre 
tableau DIM recueille, lui, les 
adresses correspondantes. 

La sauvegarde fournit donc un 
‘fichier ASCII", rechargeable par 
l'option LOAD. Il y a quand même 
une option CALL pour l'essayer 
(après une prudente sauve- 
garde...). 

Que faire de ce programme 
machine enregistré en ASCII ? II 
faut le transformer ensuite en 
fichier linéaire, c’est le rôle d'un 
tout petit programme Basic. 


LE PROGRAMME 
POKEDIM 


Il tient très peu de place en 
mémoire. Dans un premier 
temps, il lit le fichier ASCII enre- 
gistré par MACHDIM, et le POKE 
en RAM. Il vous prie de noter par 
écrit son nom, son adresse départ 
et sa longueur. Enfin, il vous pro- 
pose de l'enregistrer en binaire 
sous un autre nom (prudent). 
Vous pouvez alors le tester par 
CALL. 

Ces programmes Basic ne font 
appel à aucune astuce spéciale 
ou fonction peu usitée, que du 
classique. Et comme nous 
publions la légende de nos varia- 
bles, vous devez vous y retrou- 
ver facilement. 


LE MODE D'EMPLOI 


C'est plutôt une présentation, car 
toutes les options figurent à 
l'écran. De plus, toute frappe non 
valable est refusée et signalée par 
un bip sonore, le PRINT CHR$(7). 
Toute première phase : Entrée de 
l'adresse départ, en hexadécimal 
ou en décimal. Vous pouvez, par 
exemple, indifféremment taper 
38912 ou &9800. Après le ‘’&', 
pas d'espace et obligatoirement 
quatre caractères. Sitôt après une 
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passe à l'écran de saisie en qua- 
tre WINDOW, très coloré (on 


vous gâte.. ). Moitié gauche = 
saisie, moitié droite =les interven- 
tions. 


La partie saisie est en trois colon- 
nes : adresse en décimal, sa tra- 
duction en hexadécimal et les 
valeurs à entrer, le curseur vous 
y attend. Rappelons que c’est le 
programme qui affiche l'adresse 
en cours ; pas vous. Ces trois 
colonnes sont légendées en haut 
de l'écran. 

La partie options est en trois 
zones. En haut, on rappelle la 
fameuse adresse départ. Au 
milieu, les légendes des lettres 
(en majuscules) pour chaque type 
d'intervention, E pour erreur, V 
pour Visionner, S pour Save, etc., 
plus un rappel vous signalant que 
vous êtes dans MACHPOKE ou 


dans MACHDIM. La partie infé- 
rieure pour l'instant est vide, 
c'est la zone réponse aux ques- 
tions, suite aux interventions. 
Exemple : au lieu d'entrer la 
valeur suivante dans le tableau de 
saisie, vous avez tapé E et 
ENTER : dans cette zone appa- 
raît : ‘‘Erreur : Adresse en déci- 
mal ?"”. 

La page de saisie comprend vingt 
lignes (scrolling). De temps à 
autre, vérifiez qu'un oubli n'a pas 
provoqué un décalage adresse- 
valeur. 

Les valeurs sont obligatoirement 
en DEUX caractères hexa (et en 
majuscules) ; ne tapez pas le 
“"&'", c'est le Basic qui le met. 
Si vous n'’entrez qu’un seul carac- 
tère, le programme consulte s'il 


PSS ANTENNES TDR ATTEND 
MACHPOKE 


est dans la liste des caractères 
d'interventions. Si ce n’est pas le 
cas, bip sonore et recommencez. 
Il ne peut pas faire une erreur en 
comptant ses adresses, il vérifie 
tout. 

En ‘‘vision’”, il va lister votre sai- 
sie à partir de l’adresse que vous 
lui avez indiquée. || présente 20 
lignes et s'arrête (pas comme 
LIST en Basic...). La zone ques- 
tion vous présente alors trois 
options : ‘‘’S’’ pour Suite, ‘’E’’ 
pour Erreur décélée, ou ‘‘F’’ pour 
Fin de vision, et retour à la saisie 
ou autre option. 

Les options SAVE et LOAD vous 
demandent le nom du pro- 
gramme. On l'a limité à huit 
caractères maxi, sans espaces ni 
point ; nous sommes alors 
compatibles cassettes et disquet- 
tes. 


10 “MACHPOKE :POKEUR DE PROGRAMME EN LAN 

GAGE MACHINE 

28 ‘ AMSTRAD CPC / Michel Archambault 19 

85 

$Q OPENOUT "BIDON": MEMORY HIMEM-1:CLOSEO 

UT 

50 MODE 1:CLS:BORDER 9 

6@ PEN 3:LOCATE 9,4:PRINT 

GRAMMES EN" 

70 LOCATE 11,6: PRINT 
LL] 


"“POKAGE DE PRO 

"EN LANGAGE MACHINE 

80 PEN 2:LOCATE 8,9:PRINT “Michel Archam 

bault -— 1985" 

100 PEN 2:LOCATE 2,20:PRINT "Si en HEXAD 

ECIMAL faites preceder de &":LOCATE 19,2 

2:PRINT "puis QUATRE caracteres." 

110 PEN 1:LOCATE 8,15: INPUT "ADRESSE DEP 

ART : ",AD$ 

120 IF LEFT$(AD$,1)="&" THEN AD=VAL("&"+ 

RIGHTS (AD$,2) ) +256#VAL (LEFT$ (AD$,3) ):1F 

LEN(AD$)<>S THEN AD=0:G0TO 110 

130 IF AD=0 THEN AD=VAL(AD#) 

1000 ‘ ECRAN DE SAISIE 

181Q@ WINDOW #0,1,22,6,25:CLS:WINDOW #1,1 
522:14:PAPER #1,1:PEN #1,G:CLS #1 

102@ LOCATE #1,5,2:PRINT #1, "ADRESSE" ;SP 

C (4) ; "VALEUR" 

1030 LOCATE #1,3,3:PRINT #1,"deci";SPC(4 
);"hexa" 

1040 WINDOW #2,25,40,1,18:PAPER #2,2:PEN 
#2,0:CLS #2 

1050 LOCATE #2,2,2:PRINT #2," ADRESSE DE 
PART: " 

1060 LOCATE #2,3,3:PRINT #2,USING 
“sAD3;:PRINT #2,SPC (3); "&"; HEX$ (AD) 
1070 PRINT #2,STRINGS$(18,"_"):PEN#2,3:PR 

Valeurs POKEES":PEN#2,0@: PRINT 


HHHHH 


1080 PRINT #2," Q = Quitter." 
1090 PRINT #2," E = Erreur." 
1100 PRINT #2," V = Vision." 
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1110 
1120 
1130 
1140 
1150 


PRINT #2," I 
PRINT #2," L = LOAD" 

PRINT #2," S = SAVE" 

PRINT #2," C = _. 

OPT$="GEVILSC" 

1168 PRINT #2 *STRINGS (18,"_") 

1170 WINDOW #3,23,40,18,4@: PAPER #S,2:PE 
N #3,S:CLS #5 

2088 ‘ SAISIE 

2018 A=AD 

2028 PRINT USING "R#RRNE" 3 A3 PRINT SPC (4 
) 3 RIGHTS ("MOG"+HEXS$ (A) ,4) ; SPC (S) ; 


= Impression." 


2025 IF FLOAD THEN LOCATE #3,2,2:PRINTHS. À 


"Passez en Vision" 

2030 K=0@: INPUT "",V$:1F V$="" THEN 2090 

2035 IF LEN(V#)>2 THEN PRINT CHR$(7) : GOT 
O0 2020 

2040 IF LEN(V#)=1 THEN K=INSTR(OPT#$,V#): 
IF K=Q THEN PRINT CHR$(7):G60T0 2020 

2050 IF K THEN ON K GOTO 5000,4000,5000, 
6000,7000,8000,9000 

2068 IF LÉFTS (VS, 12>"F" OR RIGHT$(V$,1) > 
“"F" THEN PRINT CHRS (7) : GOTO 2020 

207 V=VAL("&"+V#$) 

2080 POKE A,V 

2098 A=A+1: GOTO 2020 

3000 ‘QUITTER 

3010 CLS #3:LOCATE #3,2,3:INPUT #3,"ON 4 
RRETE (O/N) "“,Q$ 

35020 IF Q$="0" THEN MODE 1: BORDER 1:CLS: 
END 

3030 
5040 
3050 
4000 
4010 
UR:" 
4020 
12" 

4050 LOCATE #35,3,6:INPUT #3,"",AE$:AE=VA 
L(AE$):1F AE<AD THEN PRINT CHR$(7) ; : GOTO 


IF Q$="N" THEN 35050 

PRINT CHR#(7); : GOTO 3010 

CLS #3:G0OT0 2020 

* ERREUR 

CLS #5:LOCATE #5,6,2:PRINT #3,"ERRE 


LOCATE #5,5,4:PRINT #53,"Adresse DEC 


4090 
4048 PRINT USING "######"3: AE; : PRINT SPC( 
4) : RIGHTS ("ODQ"+HEXS$ (AE) ,4) ; SPC(S) ; 
4050 INPUT "",V#$:1F LEN(V$)<2>2 THEN PRIN 
T CHR$(7);:GOTO 4040 
A06Q@ IF LEFT$S(V$,1)>"F" OR RIGHT#(V$,1) > 
"F"“ THEN PRINT CHR$(7);:GOTO0 4040 
4070 V=VAL("R"+VS) 
4088 POKE ÂAE,V 
4090 IF FVIS THEN FVIS=0:G60T0 5000 
4100 CLS #3:GO0OT0 2020 
5000 ‘VISION 
5010 CLS#3:LOCATE #3,53,2: INPUT #3,"VISI0 
N ?(O/N) ",Q$:IF Q$="N" THEN 5140 
S02a 1F G$<>"O0" THEN 5018 
5030 CLS#3:LOCATE #35,2,2:PRINT #3,"Adres 
se DEPART" 
5040 LOCATE #3,2,43: INPUT #3,"en DECI:",A 
V$#: AV=VAL (AVS) 
5050 IF AV<AD THEN PRINT CHRS# (7) ; s GOTO 5 
Baa 
5060 CLS#3:CLS:FOR I=AV TO AV+19 
5070 PRINT USING "######°3; 1; : PRINT SPC (4 
) 5 RIGHTS ("GGG"+HEX$ (1) ,4) ; SPC(S) ;RIGHT# ( 
"D"+HEX$ (PEEK(1)),2):NEXT:AV=AV+209 
S080 CLS#S:LOCATE #3,2,2:PRINT #3,"Suite 
sErreur,Fin" 
5085 IF FLOAD THEN PEN #3,0:LOCATE #5,2, 
6:PRINT #3,"Notez 1l'’'adresse":PRINT #5," 
finale en DECI !":PEN #5,35 

LOCATE #3,5,4:INPUT#3,"( S/E/F ) ", 


IF GQ$="S" THEN 5060 
IF Q$="F" THEN 5140 
IF Q$="E" THEN FVIS=1:GOT0 4008 
PRINT CHR$(7);:G60T0 5080 
IF FLOAD=Q0 THEN 5200 
CLS#3:LOCATE #5,2,2:PRINT #S,"Adres 
se finale" 
5160 LOCATE #3,2,4:INPUT #3,"en DECI:",A 
F$:AF=VAL(AF#):1F AF<AD THEN 5150 
5170 A=AF+1:FLOAD=0 
5200 CLS#3:CLS:GOTO 29220 
-688G ‘ IMPRESSION 
6810 CLS #3:LOCATE #35,2,3:PRINT #3,"IMPR 
ESSION: " 
6020 INPUT #3," 
THEN 6070 
6050 IF QG$<>"0" THEN PRINT CHR$(7) ; : GOTO 
6000 
6040 PRINT #8,CHR$ (27) ; CHR$ (64): FOR 1=AD 
TO A-1 
6050 PRINT #9 ,USING "#H#HH###"3; Is: : PRINT #8 
»" 2: ";RIGHTS ("OO "+HEXS (1) ,4)5;" — ";RIG 
HT$ (“O"+HEX$ (PEEK(1)),2) 
6060 NEXT 
6070@ CLS#3:G60T0 2020 
7008 ‘LOAD 
7010 CLS#S:LOCATE #3,2,2: INPUT #3, "LOAD 
{ O/N )",0$ 
7020 IF G$="N" THEN 7120 
7030 IF GQ$<>"0" THEN 7009 
7040 LOCATE #3,2,4: INPUT #5,"NOM:",FICH$ 
7050 IF FICH$="" THEN PRINT CHR$ (7) ; : GOT 
0 7040 
7060 FICH$S=LEFTS (FICH$,8) 
707@ LOAD FICH$,AD:FLOAD=1 
7120 CLS#S:GOTO 2020 
8008 ‘SAVE 


{ O/N ) ",GQ#:1F Q$="N" 


8010 CLS#3:LOCATE #3,2,2: INPUT #3,"SAVE 
{€ O/N ) ",0$ 

8020 IF Q$="N" THEN 8090 

8030 IF Q$<>"O" THEN 8000 

8035 IF FLOAD THEN 8100 


8040 LOCATE #5,2,4:INPUT #3,"NOM:",FICH$ 


8050 IF FICH$="" THEN PRINT CHR$(7) ; : GOT 
0 68040 

8060 FICH$=LEFT$ (F1ICH$,8) 

807@ LG=A-AD 

8080 SAVE FICH$,B,AD,LG 

8090 CLS#5:607T0 2020 

8100 CLS#3:LOCATE #5,2,2:PRINT #35,"Adres 
se finale" 

811@ LOCATE #35,2,4: INPUT #3,"en DECI:",A 
F$:AF=VAL(AF#):1F AF<AD THEN 8110 

8120 A=AF+1:FLOAD=0 

8130 CLS#3:G6G0T0 8040 

9000 ‘ESSAI DE CALL 

9010 CLS #S:LOCATE #5,2,4: INPUT #35,"ESSA 
I CALL (O/N) ",0$ 

9020 IF G$="N" THEN 9050 

9030 1F Q$<>"0O" THEN PRINT CHR$#(7)3;:GOTO 
9000 

984@ CALL AD 

9050 CLS#3:G60TO0 2020 

9060 ‘’--- FIN DE LISTING --- 


Modifications de MACHPOKE --> MACHDIM 


10 “MACHDIM : CHARGEUR DE P 

NGAGE MACHINE EN DIM SRE 
40 DEFINT J,K,V:DIM P(3900) ,V(3000) 

90 MODE 1: CLS: BORDER 16 

6@ PEN S:LOCATE 6,4:PRINT "MISE EN DIM D 
E PROGRAMMES EN" 

1970 PRINT #2 :STRINGS$ (18,"_"): PEN#2,3:PR 
INT #2," Valeurs en DIM": PEN#2, @: PRINT 


A=AD:J=1 

P(J)=A:V(J)=V 

A=A+1:J=J+1:GO0OTO 2020 
JE=AE-AD+1:V(JE)=V 

CLS#S: CLS: FOR I=AV TO AV+19:K=1-AD+ 


PRINT USING "#HH##H###"; PK) 3; : PRINT SP 
C (4) 3 RIGHTS ("Q@@"+HEXS (P (K)) , 4); SPC(S);R 
IGHTS ("Q"+HEXS (V (K) ) ,2) 2 NEXT: AV=AV+20 
5140 CLS#3:CLS:GOTO 2020 
6040 PRINT #8,CHR$ (27) ;CHR$ (64): FOR 1=1 
10 2-1 
6058 PRINT #9,USING "#######"3 PCI) 5 : PRINT 
#6," 2: ";RIGHT$("OD@"+HEXS(P(1)),4)3" — 
"3 RIGHTS ("Q"+HEXS$S (V(I)),2) 
7078 J=0: OPENIN FICH$ 
7080 J=J+1:1F EOF THEN 7100 
7090 INPUT #9,P(J),V(J):G0T0 7080 
7108 CLOSEIN 
7110 A<P(J-1)+1 
8070 OPENOUT FICH$ 
8080 FOR 1=1 TO J-1:WRITE#9Y,P{I) ,V{(I)2:NE 
XT:CLOSEOUT 
9048 FOR 1=1 TO J-1:POKE P(1),V(I):NEXT: 
CALL AD 


EFFACER dans MACHPOKE les Lignes : 
5085,5150 a 5209,9055,8100 a 8150 


ee ee ee ue ee one eo 
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QUELQUES 


— Ne faites jamais un CALL 


21152 ABS LE avant d’avoir fait un SAVE (pru- 
41139 AOB 3 7€ QG: = dence.. } 

411460 AGUBA 4D E = REA : 

41141 AGBS CD LACS — Vous pouvez faire un SAVE 
321125 ABES Eà = sur un programme incomplet, 
41144 AOBS 50 S = vous le rechargerez ensuite par 
21128 ABEA 34 LR LOAD pour le terminer et le cor- 
41147 AUBB 93 riger éventuellement 

41148 AUBC (15) : 

41149 AGBD 19 — Avec MACHDIM et POKEDIM, 
21129 ADBE £$ ne donnez pas le même nom aux 
41152 Agca Ag versions ASCII et binaire. 
41153 (215105 & ED Si : : 
A1154 AOC 2 CR — Si un imprévu (par moi) vous 
41155 AacC 3 6B i i i 

21188 ABXZ 2 obligerait à faire un BREAK par la 


touche ESC, rien n'est perdu, 
repartez par GOTO 2020. 

— Les pages listings de CPC n° 
1, pages 26 et 27, s'adressent au 


LEGENDE DES VARIABLES: CPC 464 en cassette. Si vous 
; avez le lecteur de disquettes 
— À : ADRESSE EN COURS branché, il faut faire BREAK (ou 
AD , AD# : ADRESSE DEPART option Q = Quitter), puis ITAPE 
, ss : Res ni  . avant de faire CALL &9800, 
F . “1 
av + AV$ : ADRESSE DEPART VISION a le message ‘Bad 
CHR#(27); CHR$(64) : VIDE LE BUFFER IMPRIMANTE L Hu 
CHR$ (7) : BIP SONORE — Lisez attentivement le texte de 
DIM P(3002) : LISTE DES ADRESSES l’article accompagnant le lisitng, 
DIM V({3000) : LISTE DES VALEURS V et ce pour deux raisons : 
FICH$. : NOM DU FICHIER - il peut y avoir un MEMORY à 
FLOAD : FLAG DE LOAD entrer avant de faire LOAD ‘‘nom 
FVIS : FLAG DE VISION du fichier binaire”’, 


: S DE COMPTAGES 
ne ie roeq -le CALL peut concerner une 


LONGUEUR DU FICHIER autre adresse que l'adresse 

REPONSE A UNE QUESTION départ, c'est ce qu’on appelle 
: VALEUR DU CODE MACHINE l'adresse d'exécution ou de lan- 

cement (peu fréquent). 

— Pour enregistrer le fichier 

binaire nommé ‘‘TRÜC’’, la 

syntaxe est : 

SAVE''TRUC‘,B,adresse départ, 

POK ; à longueur 
os EDIM:POKAGE D'UN FICHIER ASCII CREE PAR MAC Lee prourarinus MACHPOKE st 


‘AMSTRAD CPC / M.Archambault 1985 POKEDIM se chargent de cette 
OPENOUT "BIDON":MEMORY HIMEM-1:CLOSEOUT écriture. En revanche, LOAD est 
CLS: INPUT'"'NOM DU FICHIER:",FICHS$ bien plus simple : à partir de l'al- 


ae LL Det de lumage de l’'AMSTRAD, tapez 
J=J+1:1F EOF THEN 90 : ” æ - 
INPUTH9,A,V: IF J=1 THEN AD=A simplement LOAD'TRUC"", et il 
POKE A,V:G60T0 60 ira se loger au bon endroit, puis 
CLOSEIN CALL adresse. C'est pour cela 
100 L=J-1 qu'il fallait le noter par écrit. 
110 PRINT "NOTEZ pour ";FICH$;" =" — En cas de discontinuité dans 


120 PRINT " Adresse DEPART="; AD 
130 PRINT " LoNgUSLSS Vi L les adresses (rare), tapez ENTER 


148 PRINT: INPUT " SAVE en BINAIRE ? (O/N) ",Q$:0$= en saisie. 
UPFERS (D$) 


150 IF Q+f="0" THEN 170 
160 IF Q$<>"N" THEN 14@ ELSE END CONCLUSION 


17Q PRINT: INPUT "NOM DU os ENTER) : " ,NOM$# Avec de tels outils et ces quel- 

DU 1 nue THEN NOMNSSr ENS ques notions, vous devez (enfin) 

190 SAVE NOM#,B,AD,L:END : Rs 

200 ‘---FIN DÙ LISTING profiter des listings en Assem- 
bleur ; même sans le pratiquer, ni 

le comprendre, il ne vous impres- 

sionnera plus. 
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La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘‘’généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends pour AMSTRAD CPC 464 nombreux 
logiciels (Sorcery, Combat lynx, Defend or 
Die, etc.) de 10 à 20 F. Ecrire à Jean- 
Christophe BLANC, Résidence de Jaume, 
Lons en Vercors. 


Vends AMSTRAD CPC 464 moniteur 
monochrome vert + assem- 
bleur/désass./monituer + Décathlon + Har- 
rier Attack + Snooker + 3D-Invaders + (10 
programmes sur cassette) + joystick : 2900 
F. Olivier DUPUIS, 4 rue Robespierre, 78390 
BOIS D'ARCY, tél.: 045.25.19. 


Suite à déménagement j'ai perdu les notices 
de certains de mes logiciels de jeux AMS- 
TRAD. Pouvez-vous m'envoyer des photoco- 
pies contre remboursement des frais de Sor- 
cery, Fighter-Plot, Battle for Midway, Knight- 
Core. M. SELLA, 18 rue de la Platrière, 
95220 HERBLAY. 


‘Cherche pour 664 (ou 464) programmes et 
interfaces our décodage MORSE-RTTY. 
Autres applications radio en réception bien- 
venues ainsi qu'échanges programmes jeux 


et utilitaires, astuces, contacts, listings, etc. 
J. PARSI, 28 rue TAine, 75012 PARIS, tél.: 
341.03.37 après 20 h ou 774.20.55 HB. 


Amstradiste échange tous logiciels + cher- 
che TOUTES notices de jeux complètes et 
lisibles (originaux prêtés retournés + photo- 
copies). C. PASQUIER, 29 rue Maxime Gorki, 
78500 SARTROUVILLE. 


Cherche contact hard et soft. Possède plus 
de 200 titres. J'ai déjà réalisé quelques car- 
tes d'extensions. À. ELBAZ, Petite Rue de 
l'Eglise, 67000 STRASBOURG, tél.; (88) 
23.15.77. 


Cherche possesseur d'Amstrad pour échange 
de logiciels. Jérôme TYRANT, La Corderie, 
22200 POMMERIT LE VICOMTE. 


Vends moniteur vidéo N et B 37 cm : 350 
F. Recherche programmes pour ORIC- 
ATMOS. Robert SENECHAL, 30 rue Coutel- 
lier, 60600 CLERMONT OISE, tél.: (4) 
450.05.42. 


AMSTRAD CPC 464 possédant bons logi- 
ciels d'arcade, d'aventure, etc. échange pro- 
grammes avec autres Amstradistes. Fabrice 
BERGEAT, L'allée de Corse, 91300 MASSY, 
tél.: (6) 920.53.66. 


Amstrad CPC 464 vend 150 logiciels sur K7 
de 30 F à 70 F {le logiciel). Offre uniquement 
sur Paris et banlieue. Philippe LEFEUVRE, 21 
rue du Pont Blanc, 93300 Aubervilliers, tél.: 
352.40.11. Vite, c'est urgent ! (possibilité 
échanges). 


Cherche contacts sur toute la France pour 
échanges de logiciels, trucs et astuces. Cher- 
che également imprimante pouvant se bran- 
cher sur le CPC 464. M. JANVIER, 3 rue Gau- 
guin, 36000 CHATEAUROUX, tél.: (54) 
34.77.89. 


E/RRTTY 45 à 110 bds sur CPC 464 et 664 
K7 : 120 F. Eddy DUTERTRE, 6, résid. La 
Pépinière, 92350 LE PLESSIS ROBINSON. 


‘ Vends console vidéo Philips G.7400 état neuf 


+ extension Basic + 12 cassettes de jeux : 
2500 F. Tél.: (88) 01.72.68. 


Chaîne utilisateurs 464 cherche contacts 
pour échanger tous programmes (en possé- 
dons 80 environ). Christian JULLIEN, 3 rue 
Maurice THOREZ, 63100 CLERMONT FER- 
RAND. 


Vends imprimante CGP 115 40/80 colonnes, 
série et parallèle, 4 couleurs, tbe : 1600 F. 
Echange logiciels (+ de 100) pour CPC sur 
disc ou K7. Cherche notices Devpac, 
Myrddin, Pascal. E. DAURIS, 21 rue de 
l'Aqueduc, 30000 NIMES, tél.: (66) 
29.54.10. 


Amstrad CPC 464 échange logiciels jeux, uti- 
litaires, etc. Thierry AUDIN, 42 rue Bréguet, 
75011 PARIS. 


Vends ou échange programmes de jeux, uti- 
litaires, langages (plus de 120 titres) pour 
Amstrad 464. Jean-Pierre PASCALIN, Colon- 
zelle, 26230 GRIGNAN. 


Vends cause double emploi logiciel cassette 
Battle for Midway avec notice en français. 
A. GUILLOTEAU, 91 rue Villiers de l'Isle 
Adam, 75020 PARIS. 


Cassette jeu Amsoft : Les Bijoux de Stradus. 
Pouvez-vous m'aider à passer l'épreuve du 
garde (envoie 1 listing de jeu en échange). 
J.N. REGIS, 17 rue du Chenêt, 25230 
DASLE, tél.: (81) 34.45.06. 


Cherche correspondant 464-664 pour échan- 
ger 200 programmes, astuces et utilitaires. 
Ecrire à Robert CROC, 4 impasse Riquet, 
31700 BLAGNAC. 


: ANNONCEZ-VOUS ! : 
15 8 
| les petites annonces et les messages 
I I 
} Le ï 
_ 
fi 
Ï oi l 
] RRRNRSEMER Î 
Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 1 
| SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ Ï 
L ER CD CU OR OS CS CS CD ONU CU CS CN CES UE CR GE CD ŒE CE RD CR OR OS ER OE | 
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Echange programmes Amstrad, vends 200 
programmes pour 500 F. Achète imprimante 
de qualité. Tél.: (49) 68.10.69 le soir. 


AMSTRAD 664 échange nombreux program- 
mes sur disque ou cassette. Recherche nou- 
veautés, trucs et astuces, etc. Michel 
POTIER, 42 rue Voltaire, 94190 VILLE- 
NEUVE ST. GEORGES, tél.: 389.62.44,. 


Echange K7 jeux, initiation Basic où envoi 
contre remboursement 50 F les 5 avec 
notice. M. MORA, BP 7, 41410 NOE. 


Cherche possesseurs d'AMSTRAD CPC 464 
pour ventes ou échanges de logiciels (jeux, 
utilitaires, etc.). Envoyer liste pour échanges 
à M. Fabrice MOLINIER, 6 rue Charcot, 
62290 MOEUX LES MINES. 


Echange nombreux programmes pour CPC 
464, réponse assurée. Contacter Christophe 
VALLA, 30 allée des Brasilias, 26500 
BOURG LES VALENCES. 


Vends ordinateur TI 99 4/A Péritel avec joy- 
sticks, câble mgn, Basic étendu, fixt 32 k, 
mini mém. + modules, Foot, Echecs, Vidéo- 
games 1, Adventure (avec 3 K7) + K7. Heb- 
dogiciel n° 1 à 4, Lunau Lauder 2, Solar 
system, Lunau Jumper + 15 programmes + 
7 revues et livres + 35 numéros d'Hebdogi- 
ciel. Le tout : 4500 F. M. LANCELOT, 3 rue 
des Juifs, 18000 BOURGES, tél.: (48) 
24.03.50 après 20 h. 


Vends pour ZX81,. cause acquisition autre 
matériel, assembleur + désassembleur + 
doc. Microconcept (500 F). Nombreux livres 
sur ZX81 à moitié prix. Tél.: (1) 772.92.18 
(381) HB. 


Possesseur d'un CPC 464 cherche corres- 
pondant pour éChanges sérieux de program- 
mes, trucs et astuces. Envoyer vos listes 
d'échanges à Michel TELLIER, 6 rue Jean 
Bouin, 95600 EAUBONNE. Réponse assurée. 


Vends AMSTRAD CPC 464 vert avec joys- 
tick et plus de 80 logiciels : 3200 F. M. Jean- 
Marc LELOUP, tél.: 384.45.24 où HB au 
233.38.50 ou 233.38.52. 


AMSTRAD 664 vend où échange un grand 
nombre de logiciels professionnels et de 
jeux ; peut transposer vos logiciels sur dis 
quette gracieusement. Tél.: (40) 97.28.64 


Cherche des jeux AMSTRAD. Serais prèt à 
faire des échanges. En possède une bonne 
trentaine et aimerais m'étendre. Pour cela 
ecrire à Franck DELHOMME, 6, bd. Nessel, 
67500 HAGUENAU. Réponse assez urgente 


Pour CPC 464, contre contribution forfaitaire, 
cherche un programme utilitaire pour une 
gestion spécifique administrative avec gra 
phiques. Appelez, pour précisions et cahier 
des charges M. PERRET, tél: (84) 
30:08.55, 


Vends carte APPLE Ile entièrement équipée 
(y compris ROM) testée, clavier, alim. à 
découpage, carte langage nue, le tout : 
3200 F ou séparément. Tél.: M. NOEL (1) 
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339.40.55 poste 413 où 899.26.51 après 
18 h 30. 


Possesseur d'un CPC 464 cherche corres- 
pondant pour échanges sérieux de program- 
mes, trucs et astuces. Envoyer vos listes 
d'échanges à Michel TELLIER, 6 rue Jean 
Bouin, 95600 EAUBONN. Réponse assurée. 


Echange ou achète programmes pour CPC 
464. Cherche utilitaires intéressants, trucs, 
astuces, bidouilles. Marc FICHEUX, Enval, 
653270 VIC LE COMTE, tél.: (73) 69.17.74. 


Vends listings jeux, K7 jeux pour AMSTRAD 
464. H. BONNIN, Les Erondes, Route des 
Sables, 85300 CHALLANS, tél.: (51) 
68.03.58. 


Cherche pour CPC échange de logiciels 
(+200). Envoyer vos listes et propositions 
à M. Michel ROBIN, 51 rue André Marteau, 
37700 ST. PIERRE DES CORPS, tél.: (47) 
44.59.60. 


Echange, achète programmes AMSTRAD 
CPC 464, cherche notice en français Battle 
for Midway. J.P. WOJACZEK, 10 allée des 
peupliers, 78390 BOIS D'ARCY. 


Vends 12 logiciels jeux neufs cause version 
anglaise pour AMSTRAD. Enveloppe timbrée 
pour liste. Echange manuel AMSTRAD ver- 
sion anglaise contre version française CPC 
464. Sébastien GAROUCHE, 27 rue Frédé- 
ric MISTRAL, 30300 FOURQUES, tél.: (90) 
93.21.74. 


Laurent cherche contacts Amstradiens pour 
échanges divers et logiciels : j'en ai pas mal. 
Laurent LOQUET, 64 rue du 8 Mai, Douvrin, 
62138 HAISNES, tél.: (21) 79.82.34. 


Cher. pour 664, achète, échange : jeux, uti- 
litaires + notices. P. GIORGI, 16 av. de Bou- 
vines, 75011 PARIS, tél.: 373.86.50 après 
20 h 45. 


Vends imprimante table traçante pour 
CANON X07, 4 couleurs, CANON X710. bon 
état, sous garantie. Faire offre à M. REVEIL- 
LAS, 10 rue Louis Blanc, 24000 PERI- 
GUEUX. 


Vends ou échange nombreux logiciels AMS- 
TRAD 664 ou 464 contre logiciels, bidouil- 
les, utilitaires. M. COTTINEAU, tél.: (40) 
97.23.19. 


Echange logiciels pour AMSTRAD CPC 464 
(K7 et disques). Hervé DELARUE, 26 rue du 
Moulin à Vent, Le Val. St. Père, 50300 
AVRANCHES. 


AMSTRAD CPC 61278 cherche Pascal ISO, 
VC5D, TURBO. C. MOREL, 38 rue de Ker- 
menguy, 29200 BREST, tél.: (98) 47.47.74. 


Echange plus de 80 logiciels sur (cassettes) 
CPC 464 : aventure, utilitaire, jeux... Envoyez 
vite vos listes. Réponses assurées dans les 
plus bref délais. Laurent GHIO, 25 bis rue 
Noirmoutier, 94450 Limeil-Brévannes, Tél.: 
569.29.46. 


Vends cassettes utilitaires à 100 F l’une Tas- 
copy, Easy-Amscalc, Amlettre à 60 F. Cas- 
settes de jeux à 50 F l’une. Flight Pot 737, 
Le millionnaire, Roland in Time, Oh Mummy, 
Hunchback, Tennis. Tél.: (45) 92.86.14 
après 20 h. 


Vends ou échange programmes pour CPC 
464. Cherche bon utilitaire ainsi que jeux. 
S'adresser à Ahmed AMRANE, 92 rue Fran- 
çois Couperin la Gd. Mare, 76000 ROUEN. 


AMSTARD cherche programmes sur disquet- 
tes de toutes sortes et en particulier ‘’Star 
Watcher''. Envoyez-moi vos listes. Tony 
POURCHIER, 63, av. E. Allard, 13011 MAR- 
SEILLE. 


Possesseur d'un CPC 464 cherche corres- 
pondant pour échanges sérieux de program- 
mes, trucs et astuces. Envoyer vos listes 
d'échanges à Michel TELLIER, 6 rue Jean 
Bouin, 95600 EAUBONN. Réponse assurée. 


Echange ou achète programmes pour CPC 
464. Cherche utilitaires intéressants, trucs, 
astuces, bidouilles. Marc FICHEUX, Enval, 
653270 VIC LE COMTE, tél.: (73) 69.17.74. 


Vends listings jeux, K7 jeux pour AMSTRAD 
464. H. BONNIN, Les Erondes, Route des 
Sables, 85300 CHALLANS, tél.: (51) 
68.03.58. 


Cause double emploi vends imprimante AMS- 
TRAD DMP-1 état neuf, sous garantie 1 an 

20 %. Patrick COMBRISSON, Rue Imbart 
de la Tour, 58000 NEVERS, tél.: (86) 
57.35.31, poste 340 (HB). 


Vends clavier AMSTRAD CPC 464 + 30 
logiciels + doc. : 1500 F. Régis DARNAULT, 
8 rue de la Croix Ferrée, 78200 MANTES LA 
JOLIE, tél.: 094.14.53. 


Vends AMSTRAD CPC 464 monochrome + 
bte à cass. + 20 log. (Multi-gestion, Ams- 
lettres, Dao, jeux) : 2700 F. Philippe BOUR- 
DAIS, tél.: (43) 28.24.12. 


AMSTRAD CPC 464 : logiciel moniteur simu- 
lateur DX CW : étude progressive et entraî- 
nement code morse, toutes vitesses, tous 
symboles, avec superposition de souffle, 
interférences, brouillages par autre CW, 
fading, etc. Simulant une réception DX. 13 
paramètres à introduire permettant toutes 
configurations. Textes en clair ou codes aléa- 
toires. Tableaux de corrigés en calculateur : 
125 F. PICAULT, 13450 GRANS, Tél.: (90) 
55:91:65: 


Vends AMSTRAD CPC 464 monochrome + 
50 logiciels (acheté le 05.01.85) : 1800 F. 
Eric BIF, 3, av. Fernand Léger, 91390 MOR- 
SANG s/Orge, tél.: 904.33.71. 


Vends cause double emploi imprimante 
P2000 Sanco ave câble neuve : 4500 F. P. 
DEROCH, 35 rue de Varsovie, 62640 MON- 
TIGNY EN GOHELLE. 


la nouvelle super-production Cobra Soft 


IMMEURTRES SUR L ATLANTIQUE 


DUR 


Apaès Le succès extraondinaine de "MEURTRE À GRANDE VITESSE", 
Logiciel qui a étonné et séduit L'ensemble de La presse spé- 
cialisée par sa qualité et son oniginalité, COBRA SOFT va 
encone plus Loin et vous inez d'étonnement en étonnement avec 
Le nouveau Logiciel écait par Bertrand BROCARD : 


MEURTRES SUR L'ATLANTIQUE 


1938. Tandis que La situation politique s'aggrave en Europe, 
au Havre, Le plus grand et Le plus luxueux paquebot du monde 
appareille pour New-York. À son bond, une clientèle fontunée 
et insouciante... et pourtant un drame va 4e jouer pendant 
La tnavensée. Vous vous {nouvenez ainsi projeté au coeux de 
La plus incroyable histoire d'espionnage qui permit aux 
alliés de gagnen Le seconde quenne mondiale 5 ans plus tand. 
Ce Logiciel est présenté sous La forme d'un véritable dossier 
toilé contenant 2 cassettes (plusieurs programmes et ennegis- 
{nements), photos, fac-similé de journal, indices et un as- 
sontiment d'objets divens et mystérieux ! 


Pour Amstrad : cassette 220 F - Disquette 279 F. 


nn ne, de, ee en pet, me je, ee op ms, ms, 


BON DE COMMANDE - MEURTRES SUR L'ATLANTIQUE - AMSTRAD 
cassette - disquette (rayer la mention inutile) 
à l'adresse suivante : 


LÉGER ES SAS SR SERRE RE NA A 


Gode pos lala de Ce 


Ci-joint mon réglement par chèque (rajouter 10 [ 
“pour.le port), soit FRS 


[l 
! 
‘ 
L 
t 
{ 
! 
ps envoyer-à COURA SOÏT BP-155 Chalon-s/S=: Cadet 
L 


27,rue de Léningrad 75008 Paris Tél. :(1)387.27.27 + ERE INFORMATIQUE 


